SCM

SCM Repository

[matrix] Diff of /pkg/tests/validObj.R
ViewVC logotype

Diff of /pkg/tests/validObj.R

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1672, Mon Nov 6 20:25:10 2006 UTC revision 1673, Mon Nov 6 20:54:26 2006 UTC
# Line 88  Line 88 
88            validObject(M <- new("dtCMatrix", Dim = c(n,n), diag = "U",            validObject(M <- new("dtCMatrix", Dim = c(n,n), diag = "U",
89                                 p = rep.int(0:0, n+1)))                                 p = rep.int(0:0, n+1)))
90            )            )
91    
92    set.seed(3) ; (p9 <- as(sample(9), "pMatrix"))
93    ind.try <- try(p9[1,1] <- 1, silent = TRUE)
94    stopifnot(grep("replacing.*sensible", ind.try[1]) == 1,
95              is.logical(p9[1,]),
96              isTRUE(p9[-c(1:6, 8:9), 1]),
97              identical(t(p9), solve(p9)),
98              identical(p9[TRUE,], as(p9, "ngTMatrix"))
99              )

Legend:
Removed from v.1672  
changed lines
  Added in v.1673

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