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 1824, Thu Apr 12 09:07:51 2007 UTC revision 1825, Thu Apr 12 13:21:51 2007 UTC
# Line 287  Line 287 
287    
288  ## an example that failed for a long time  ## an example that failed for a long time
289  sy3 <- new("dsyMatrix", Dim = as.integer(c(2, 2)), x = c(14, -1, 2, -7))  sy3 <- new("dsyMatrix", Dim = as.integer(c(2, 2)), x = c(14, -1, 2, -7))
290  validObject(dm <- kronecker(Diagonal(2), sy3))  validObject(dm <- kronecker(Diagonal(2), sy3))# now sparse with new kronecker
291    dm <- Matrix(as.matrix(dm))# -> "dsyMatrix"
292  (s2 <- as(dm, "sparseMatrix"))  (s2 <- as(dm, "sparseMatrix"))
293  validObject(st <- as(s2, "TsparseMatrix"))  validObject(st <- as(s2, "TsparseMatrix"))
294  stopifnot(is(s2, "symmetricMatrix"),  stopifnot(is(s2, "symmetricMatrix"),

Legend:
Removed from v.1824  
changed lines
  Added in v.1825

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