SCM

SCM Repository

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

Diff of /pkg/tests/poMatrix.R

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

revision 475, Tue Feb 1 14:44:06 2005 UTC revision 476, Wed Feb 2 11:51:24 2005 UTC
# Line 7  Line 7 
7  h9 <- Hilbert(9)  h9 <- Hilbert(9)
8  str(h9)  str(h9)
9  all.equal(determinant(h9)$modulus, -96.7369450737858, tol= 1e-15)  all.equal(determinant(h9)$modulus, -96.7369450737858, tol= 1e-15)
10  stopifnot(0 == length(h9@factorization))# nothing yet  stopifnot(0 == length(h9@factors))# nothing yet
11  str(f9 <- as(chol(h9), "trMatrix"))  str(f9 <- as(chol(h9), "trMatrix"))
12  ## h9 now has factorization  ## h9 now has factorization
13  stopifnot(names(h9@factorization) == "Cholesky")  stopifnot(names(h9@factors) == "Cholesky")
14  rcond(h9)  rcond(h9)
15  rcond(f9)  rcond(f9)
16  str(h9)# has 'rcond' and 'factorization'  str(h9)# has 'rcond' and 'factorization'

Legend:
Removed from v.475  
changed lines
  Added in v.476

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