search for: jjsa

Displaying 1 result from an estimated 1 matches for "jjsa".

Did you mean: jasa
2004 Mar 27
1
Re: [S] scalability
...BR> S4-generic, but then there are benefits too. I am not sure designers who BR> add features take enough account of the costs. Using R 1.8.1 (precompiled) on SuSe Linux with a Xeon 2.4GHz and 1G of memory: set.seed(2) jja <- array(rnorm(3000*300*3), c(3000, 300, 3)) gc() system.time(jjsa <- apply(jja, 1:2, sum)) # takes 30 seconds sumS3 <- function(x, ...) UseMethod("sumS3") sumS3.default <- function(x, ...) sum(x, ...) gc() system.time(jjsa3 <- apply(jja, 1:2, sumS3)) # takes 65 seconds sumS4 <- function(x, ...) standardGeneric("sumS4") setMeth...