SCM

SCM Repository

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

Diff of /pkg/tests/indexing.R

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

revision 2238, Fri Jul 25 08:04:22 2008 UTC revision 2239, Mon Jul 28 19:26:40 2008 UTC
# Line 219  Line 219 
219  stopifnot(identical(m0[2,], m0[,2]),  stopifnot(identical(m0[2,], m0[,2]),
220            identical(m0[,1], c(1,0,0,0,0)))            identical(m0[,1], c(1,0,0,0,0)))
221  ### Diagonal -- Sparse:  ### Diagonal -- Sparse:
222  (m1 <- as(m0, "sparseMatrix"))  # dtTMatrix  (m1 <- as(m0, "TsparseMatrix"))  # dtTMatrix
223  (m2 <- as(m0, "CsparseMatrix")) # dtCMatrix  (m2 <- as(m0, "CsparseMatrix")) # dtCMatrix
224  m1g <- as(m1, "generalMatrix")  m1g <- as(m1, "generalMatrix")
225  stopifnot(is(m1g, "dgTMatrix"))  stopifnot(is(m1g, "dgTMatrix"))
# Line 384  Line 384 
384  mc[4,] <- 0  mc[4,] <- 0
385  mc  mc
386    
387  S <- as(Diagonal(5),"sparseMatrix")  S <- as(Diagonal(5),"TsparseMatrix")
388  H <- Hilbert(9)  H <- Hilbert(9)
389  Hc <- as(round(H, 3), "dsCMatrix")# a sparse matrix with no 0 ...  Hc <- as(round(H, 3), "dsCMatrix")# a sparse matrix with no 0 ...
390  (trH <- tril(Hc[1:5, 1:5]))  (trH <- tril(Hc[1:5, 1:5]))

Legend:
Removed from v.2238  
changed lines
  Added in v.2239

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