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 1252, Sat Apr 15 13:47:09 2006 UTC revision 1253, Wed Apr 19 09:17:14 2006 UTC
# Line 27  Line 27 
27  tu <- t1 ; tu@diag <- "U"  tu <- t1 ; tu@diag <- "U"
28  tu  tu
29  stopifnot(validObject(cu <- as(tu, "dtCMatrix")),  stopifnot(validObject(cu <- as(tu, "dtCMatrix")),
30              validObject(tu. <- as(cu, "dtTMatrix")),
31              ## NOT: identical(tu, tu.), # since T* is not unique!
32              identical(cu, as(tu., "dtCMatrix")),
33            validObject(t(cu)),            validObject(t(cu)),
34            validObject(t(tu)))            validObject(t(tu)))
35  assert.EQ.mat(cu, as(tu,"matrix"), tol=0)  assert.EQ.mat(cu, as(tu,"matrix"), tol=0)

Legend:
Removed from v.1252  
changed lines
  Added in v.1253

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