SCM

SCM Repository

[matrix] Diff of /pkg/Matrix/tests/dpo-test.R
ViewVC logotype

Diff of /pkg/Matrix/tests/dpo-test.R

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

revision 2989, Mon Apr 28 20:32:22 2014 UTC revision 2990, Thu May 8 10:31:52 2014 UTC
# Line 6  Line 6 
6  stopifnot(c(0,0) == dim(Hilbert(0)),  stopifnot(c(0,0) == dim(Hilbert(0)),
7            c(9,9) == dim(h9),            c(9,9) == dim(h9),
8            identical(h9@factors, list()))            identical(h9@factors, list()))
9  str(h9)# no 'factors'  str(h9)# no 'factors'           32b:    -96.73694669    2.08e-8
10  all.equal(c(determinant(h9)$modulus), -96.7369456, tolerance = 2e-8)  assert.EQ.(c(determinant(h9)$modulus),  -96.7369487, tol = 8e-8)
11    ##                              64b:    -96.73695078    2.15e-8
12    
13  ## determinant() now working via chol(): ==> h9 now has factorization  ## determinant() now working via chol(): ==> h9 now has factorization
14  stopifnot(names(h9@factors) == "Cholesky",  stopifnot(names(h9@factors) == "Cholesky",
15            identical(ch9 <- chol(h9), h9@factors$Cholesky))            identical(ch9 <- chol(h9), h9@factors$Cholesky))

Legend:
Removed from v.2989  
changed lines
  Added in v.2990

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