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 1173, Mon Jan 16 20:02:16 2006 UTC revision 1174, Mon Jan 16 20:03:48 2006 UTC
# Line 5  Line 5 
5    
6  source(system.file("test-tools.R", package = "Matrix"))# identical3() etc  source(system.file("test-tools.R", package = "Matrix"))# identical3() etc
7    
8    ### Matrix() ''smartness''
9    (d4 <- Matrix(diag(4)))
10    (z4 <- Matrix(0*diag(4)))
11    (o4 <- Matrix(1+diag(4)))
12    (m4 <- Matrix(cbind(0,rbind(6*diag(3),0))))
13    dm4 <- Matrix(m4, sparse = FALSE)
14    stopifnot(validObject(d4), validObject(z4), validObject(o4),
15              validObject(m4), validObject(dm4))
16    assert.EQ.mat(dm4, as(m4, "matrix"))
17    
18  ###--  Sparse Triangular :  ###--  Sparse Triangular :
19    
20  (t1 <- new("dtTMatrix", x= c(3,7), i= 0:1, j=3:2,  (t1 <- new("dtTMatrix", x= c(3,7), i= 0:1, j=3:2,

Legend:
Removed from v.1173  
changed lines
  Added in v.1174

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