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...