SCM

SCM Repository

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

Diff of /pkg/tests/simple.R

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

revision 1330, Fri Jul 21 08:28:18 2006 UTC revision 1331, Sat Jul 22 17:59:53 2006 UTC
# Line 105  Line 105 
105  assert.EQ.mat(kt2, ktf, tol= 0)  assert.EQ.mat(kt2, ktf, tol= 0)
106  ## but kt1 and kt2, both "dgT" are different since entries are not ordered!  ## but kt1 and kt2, both "dgT" are different since entries are not ordered!
107    
108    ## coercion from "dpo" or "dsy"
109    xx <- as(xpx, "dsyMatrix")
110    stopifnot(isSymmetric(xxS  <- as(xx,  "sparseMatrix")),
111              isSymmetric(xpxS <- as(xpx, "sparseMatrix")))
112    
113  tm <- matrix(0, 8,8)  tm <- matrix(0, 8,8)
114  tm[cbind(c(1,1,2,7,8),  tm[cbind(c(1,1,2,7,8),
115           c(3,6,4,8,8))] <- c(2,-30,15,20,80)           c(3,6,4,8,8))] <- c(2,-30,15,20,80)

Legend:
Removed from v.1330  
changed lines
  Added in v.1331

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