SCM

SCM Repository

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

Diff of /pkg/R/Tsparse.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 171  Line 171 
171                                  Dim = a@Dim, Dimnames = a@Dimnames, uplo = "L",                                  Dim = a@Dim, Dimnames = a@Dimnames, uplo = "L",
172                                  factors = list()) })                                  factors = list()) })
173            })            })
174    
175    .as.dgT.Fun <- function(x, na.rm = FALSE, dims = 1) {
176        x <- as(x, "dgTMatrix")
177        callGeneric()
178    }
179    
180    setMethod("colSums", signature(x = "TsparseMatrix"), .as.dgT.Fun,
181              valueClass = "numeric")
182    setMethod("colMeans", signature(x = "TsparseMatrix"), .as.dgT.Fun,
183              valueClass = "numeric")
184    setMethod("rowSums", signature(x = "TsparseMatrix"), .as.dgT.Fun,
185              valueClass = "numeric")
186    setMethod("rowMeans", signature(x = "TsparseMatrix"), .as.dgT.Fun,
187              valueClass = "numeric")

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 Powered By FusionForge