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 2206, Wed Jun 25 14:57:02 2008 UTC revision 2207, Mon Jul 7 22:34:52 2008 UTC
# Line 48  Line 48 
48  n <- 50000L  n <- 50000L
49  Lrg <- new("dgTMatrix", Dim = c(n,n))  Lrg <- new("dgTMatrix", Dim = c(n,n))
50  diag(Lrg[2:9,1:8]) <- 1:8  diag(Lrg[2:9,1:8]) <- 1:8
51    ## ==:  Lrg[2:9,1:8] <- `diag<-`(Lrg[2:9,1:8], 1:8)
52  e1 <- try(Lrg == Lrg) # error message almost ok  e1 <- try(Lrg == Lrg) # error message almost ok
53  e2 <- try(!Lrg) # error message was "bad", now perfect  e2 <- try(!Lrg) # error message was "bad", now perfect
54  ina <- is.na(Lrg)# "all FALSE"  ina <- is.na(Lrg)# "all FALSE"
# Line 545  Line 546 
546                      unclass(determinant(D0,FALSE)), tol=0)                      unclass(determinant(D0,FALSE)), tol=0)
547            )            )
548    
549    ### More sparseVector checks: -------------------------------
550    validObject(new("isparseVector"))
551    R <- sv <- as(D4, "sparseVector")
552    ## dim(<sparseVector>) <- (n1,n2)  --> sparse Matrix :
553    dim(R) <- dim(D4)
554    stopifnot(isValid(sv,"sparseVector"),
555              isValid(R, "sparseMatrix"),
556              identical(D4, as(R, "diagonalMatrix")))
557    
558    
559  cat('Time elapsed: ', (.pt <- proc.time()),'\n') # "stats"  cat('Time elapsed: ', (.pt <- proc.time()),'\n') # "stats"
560  ##  ##

Legend:
Removed from v.2206  
changed lines
  Added in v.2207

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