SCM

SCM Repository

[matrix] Diff of /pkg/Matrix/R/diagMatrix.R
ViewVC logotype

Diff of /pkg/Matrix/R/diagMatrix.R

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

revision 2458, Fri Aug 28 22:19:48 2009 UTC revision 2472, Sat Sep 19 06:10:48 2009 UTC
# Line 45  Line 45 
45              storage.mode(x) <- "double"              storage.mode(x) <- "double"
46              "d"              "d"
47          }          }
48      new(paste(kind, shape, "CMatrix", sep=''),      ii <- if(n) 0:(n - 1L) else integer(0)
49          Dim = c(n,n), x = x, uplo = uplo,      if(shape == "g")
50          i = if(n) 0:(n - 1L) else integer(0), p = 0:n)          new(paste0(kind, "gCMatrix"), Dim = c(n,n),
51                x = x, i = ii, p = 0:n)
52        else new(paste0(kind, shape, "CMatrix"), Dim = c(n,n), uplo = uplo,
53                 x = x, i = ii, p = 0:n)
54  }  }
55    
56  ## Pkg 'spdep' had (relatively slow) versions of this as_dsCMatrix_I()  ## Pkg 'spdep' had (relatively slow) versions of this as_dsCMatrix_I()

Legend:
Removed from v.2458  
changed lines
  Added in v.2472

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