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 2136, Mon Mar 17 22:20:29 2008 UTC revision 2137, Mon Mar 17 22:21:24 2008 UTC
# Line 347  Line 347 
347    
348  setMethod("diag", "CsparseMatrix",  setMethod("diag", "CsparseMatrix",
349            function(x, nrow, ncol) {            function(x, nrow, ncol) {
350                  ## "FIXME": could be more efficient; creates new ..CMatrix:
351                dm <- .Call(Csparse_band, x, 0, 0)                dm <- .Call(Csparse_band, x, 0, 0)
352                dlen <- min(dm@Dim)                dlen <- min(dm@Dim)
353                ind1 <- dm@i + 1L # 1-based index vector                ind1 <- dm@i + 1L # 1-based index vector

Legend:
Removed from v.2136  
changed lines
  Added in v.2137

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