SCM

SCM Repository

[matrix] Diff of /pkg/tests/indexing.R
ViewVC logotype

Diff of /pkg/tests/indexing.R

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

revision 1834, Fri May 11 10:07:17 2007 UTC revision 1835, Fri May 11 10:41:21 2007 UTC
# Line 98  Line 98 
98  }  }
99    
100  ##---- Symmetric indexing of symmetric Matrix ----------  ##---- Symmetric indexing of symmetric Matrix ----------
101    m. <- mC; m.[, c(2, 7:12)] <- 0
102  validObject(S <- crossprod(add.simpleDimnames(m.) %% 100))  validObject(S <- crossprod(add.simpleDimnames(m.) %% 100))
103  ss <- as(S, "matrix")  ss <- as(S, "matrix")
104  T <- as(S, "TsparseMatrix")  T <- as(S, "TsparseMatrix")

Legend:
Removed from v.1834  
changed lines
  Added in v.1835

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