SCM

SCM Repository

[matrix] Diff of /pkg/R/Auxiliaries.R
ViewVC logotype

Diff of /pkg/R/Auxiliaries.R

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1289, Tue Jun 6 14:48:37 2006 UTC revision 1290, Thu Jun 8 09:30:21 2006 UTC
# Line 391  Line 391 
391      new("dtTMatrix", x = xT@x, i = xT@i, j = xT@j, Dim = x@Dim,      new("dtTMatrix", x = xT@x, i = xT@i, j = xT@j, Dim = x@Dim,
392          Dimnames = x@Dimnames, uplo = x@uplo, diag = "N")          Dimnames = x@Dimnames, uplo = x@uplo, diag = "N")
393  }  }
394    
395    ### Fast much simplified version of tapply()
396    tapply1 <- function (X, INDEX, FUN = NULL, ..., simplify = TRUE) {
397        sapply(split(X, INDEX), FUN, ..., simplify = simplify, USE.NAMES = FALSE)
398    }
399    
400    ## tapply.x <- function (X, n, INDEX, FUN = NULL, ..., simplify = TRUE) {
401    ##     tapply1(X, factor(INDEX, 0:(n-1)), FUN = FUN, ..., simplify = simplify)
402    ## }
403    

Legend:
Removed from v.1289  
changed lines
  Added in v.1290

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business University of Wisconsin - Madison Powered By FusionForge