SCM

SCM Repository

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

Diff of /pkg/R/Csparse.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 92  Line 92 
92                stopifnot(k1 <= k2, k1 >= -dd[1], k2 <= dd[1])                stopifnot(k1 <= k2, k1 >= -dd[1], k2 <= dd[1])
93                .Call(Csparse_band, x, k1, k2)                .Call(Csparse_band, x, k1, k2)
94            })            })
95    
96    .as.dgC.Fun <- function(x, na.rm = FALSE, dims = 1) {
97        x <- as(x, "dgCMatrix")
98        callGeneric()
99    }
100    
101    setMethod("colSums", signature(x = "CsparseMatrix"), .as.dgC.Fun,
102              valueClass = "numeric")
103    setMethod("colMeans", signature(x = "CsparseMatrix"), .as.dgC.Fun,
104              valueClass = "numeric")
105    setMethod("rowSums", signature(x = "CsparseMatrix"), .as.dgC.Fun,
106              valueClass = "numeric")
107    setMethod("rowMeans", signature(x = "CsparseMatrix"), .as.dgC.Fun,
108              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 University of Wisconsin - Madison Powered By FusionForge