similar to: methods: Extending classes

Dear all, I can't see how setGeneric() works. I know perfectly well how to define library(methods); setClass("Square", representation(side="numeric")); # Will become the default method. getArea <- function(object) { stop(paste("Method getArea() is not defined for this class:", data.class(object))); } setMethod("getArea",

I raised the questions below a couple of months ago by sending it to the developers mailing list, but I don't know if it got through since no one replied to it. Looking at the [R] distribution, the UseMethod() is used in the following way: alias <- function(object, ...) UseMethod("alias") or barplot <- function(height, ...) UseMethod("barplot") What I

Dear [R] people, I am looking for a method to test if there are any changes (jump points) in a time series data set or not. If there are, I would like to identify the jump points. All the data is available from the beginning so an offline method could be used. The current data set that I have could be seen as a time series with five almost equally sized segments that stands out to have different

When loading a package with library(APkg) or require(APkg) I would like to make sure that (1) the correct version of [R] is installed. If not an informative error message should be given. I would also like to make sure that (2) another required package which is loaded from within the APkg package (by require(OtherPkg)) is of a certain version or later. First of all, I believe that the check

I would like to define a function at run-time, but I just can't make it work (please don't question why I want to do this, because that would be too much to explain). For example, I want to define the the following function foo <- function(x) { cat("Function", "foo", "was called with argument", x, ".\n") } However, I would like to

Is there a weighted median function out there similar to weighted.mean() but for medians? If not, I'll try implement or port it myself. The need for a weighted median came from the following optimization problem: x* = arg_x min (a|x| + sum_{k=1}^n |x - b_k|) where a : is a *positive* real scalar x : is a real scalar n : is an integer b_k: are negative and positive scalars

Dear all/anyone, after generating a HTML file "result.html" from within [R], I would like to open the default HTML browser (like help.start() does) to show the file. Is it possible to do this (without trying to do a system dependent search for possible browsers)? I browsed the source of package 'base' (R v1.4.1 WinMe) and I found the following in help():

Hi, I am trying to find the fastest way to "find the last index k such that x[k] < y in a *sorted* vector x" These are my two alternatives: x <- sort(rnorm(1e4)) y <- 0.2 # Alt 1 k <- max(1, sum(x < y)) # Alt 2 "divide and conquer" lastIndexLessThan <- function(x, y) { k0 <- 1; k1 <- length(x) while ((dk <- (k1 - k0)) >

I might be wrong, but didn't the following work before R v1.4.x? R --vanilla > df <- data.frame(-10:10) > abs(df) Error in abs(df) : non-numeric argument to function I have tried this on both Rv1.4.1 on WinMe and Rv1.4.0 on Solaris 8. I regexp searched bugs.r-project.org on "abs" but I found nothing about this. I can't see why abs(df) shouldn't work when sqrt(df),

I might be wrong, but didn't the following work before R v1.4.x? R --vanilla > df <- data.frame(-10:10) > abs(df) Error in abs(df) : non-numeric argument to function I have tried this on both Rv1.4.1 on WinMe and Rv1.4.0 on Solaris 8. I regexp searched bugs.r-project.org on "abs" but I found nothing about this. I can't see why abs(df) shouldn't work when sqrt(df),

Where should the setClass() ('methods' package) calls be placed in a package? I try to follow a one-class-one-file principe, but since setClass("ClassA", "ClassB") has to come a after setClass("ClassB", [snip]) it is not possible to fully follow this rule. So the best I can do now is to put all setClass() calls in a file named "000.R" (I know this

I am investigating how well R/tcltk is supported on different system and I ran into the same problem as Christian Schulz reported on February 7, 2002. I am using [R] v1.4.1 on WinMe and ActiveTcl 8.3.2. Loading tcltk within Rgui works just fine and both demo(tkdensity) and demo(tkttest) works as expected. However, when I start R from my Cygwin terminal dyn.load() fails to load the library: % R

I use smooth.spline(x, y) in package modreg and I would like to get value of penalized log likelihood and preferable also its two parts. To make clear what I am asking for (and make sure that I am asking for the right thing) I clarify my problem trying to use the same notation as in help(smooth.spline): I want to find the natural cubic spline f(x) such that L(f) = \sum_{k=1}{n} w[k](y[k] -

I am trying to build [R] v1.3.1 *locally* on a Sun Solaris 8 machine. One problem I am currently struggeling with is to make the command-line history function to work. I have installed GNU readline version 4.2 (latest version). Looking at the "config.log" file it seems that all readline related checks, e.g. "readline/history.h", passes (they did not before installing GNU

A binary distribution of R-1.4.0 to run on Windows 95, 98, NT4.0, 2000 and XP on Intel/clone chips is available at http://sirio.stat.unipd.it/RWin It will be mirrored at a CRAN site near you in a couple of days. See http://sirio.stat.unipd.it/RWin/CHANGES for a list of Windows-specific changes. guido masarotto

A binary distribution of R-1.4.0 to run on Windows 95, 98, NT4.0, 2000 and XP on Intel/clone chips is available at http://sirio.stat.unipd.it/RWin It will be mirrored at a CRAN site near you in a couple of days. See http://sirio.stat.unipd.it/RWin/CHANGES for a list of Windows-specific changes. guido masarotto

Before reinventing the wheel, is there a package for working on (nice) sets and intervals, where one can for instance check if a set of intervals contains a scalar, taking the union and intersection of some intervals etc? Example: # Defining the set i = [1,2) + [3.5, 10] i <- c(1,2, 3.5, 10) attr(i, "include") <- c(TRUE, FALSE, TRUE, TRUE) x <- 0:12 # Get

hist(rbinom(1000,10,0.5),col=2,xlim=c(0,10),ylim=c(0,300)) gives a histogram with "touching bars" hist(rbinom(100000,10,0.5),col=2,xlim=c(0,10),ylim=c(0,30000)) gives a histogram with space between the bars. is there a way to control the space betweent he bars easily? -- Erich Neuwirth, Computer Supported Didactics Working Group Visit our SunSITE at http://sunsite.univie.ac.at

Full_Name: Henrik Bengtsson Version: 1.3.1 OS: WinMe Submission from: (NULL) (130.235.2.229) I found the following bug on WinMe (I call it a bug, since the behavior is different on WinMe than for instance Sun Solaris): When calling file.exists() with an existing directory name ending with a "/" (slash) [R] on WinMe will return FALSE, but when doing the same without the ending

A while ago I put together a Javascript called Webcuts (GPL), which when included in an HTML document it will make it possible to navigate the page and follow links by just typing parts of the label of the links, i.e. no mouse is needed. I have, by using 'sed', added the script to every HTML help file generated by R as an example, cf.