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 2489, Sat Oct 24 20:33:05 2009 UTC revision 2490, Sat Oct 24 20:40:09 2009 UTC
# Line 629  Line 629 
629  sv <- as(thisCol, "sparseVector")  sv <- as(thisCol, "sparseVector")
630  str(sv) ## "empty" !  str(sv) ## "empty" !
631  validObject(spCol <- f[,5000, drop=FALSE])  validObject(spCol <- f[,5000, drop=FALSE])
632    ## ^^ FIXME slow Tsparse_to_Csparse from memory-hog
633    ## cholmod_sparse *CHOLMOD(triplet_to_sparse)
634    ## which has  "workspace: Iwork (max (nrow,ncol))"
635    ## in ../src/CHOLMOD/Core/cholmod_triplet.c  *and*
636    ## in ../src/CHOLMOD/Core/t_cholmod_triplet.c
637    ##
638  ## *not* identical(): as(spCol, "sparseVector")@length is "double"prec:  ## *not* identical(): as(spCol, "sparseVector")@length is "double"prec:
639  stopifnot(all.equal(as(spCol, "sparseVector"),  stopifnot(all.equal(as(spCol, "sparseVector"),
640                      as(sv,   "nsparseVector"), tol=0))                      as(sv,   "nsparseVector"), tol=0))

Legend:
Removed from v.2489  
changed lines
  Added in v.2490

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