# SCM Repository

[matrix] Diff of /pkg/tests/Simple.R
 [matrix] / pkg / tests / Simple.R

# Diff of /pkg/tests/Simple.R

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