The R Project SVN R-packages

Rev

Rev 4963 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4963 Rev 5031
Line 139... Line 139...
139 
## or
 139 
## or
140 
sC <- Matrix(mT, sparse=TRUE, forceCheck=TRUE)
 140 
sC <- Matrix(mT, sparse=TRUE, forceCheck=TRUE)
141 
 
 141 
 
142 
sym2 <- as(symC, "TsparseMatrix")
 142 
sym2 <- as(symC, "TsparseMatrix")
143 
\dontshow{
 143 
\dontshow{
144 
stopifnot(identical(symC, sC),
 144 
stopifnot(identical(symC, sC), identical(sym2, symM),
145 
          class(sym2) == "dsTMatrix",
 145 
          class(sym2) == "dsTMatrix",
146 
	  identical(sym2[1,], sC[1,]),
 146 
	  identical(sym2[1,], sC[1,]),
147 
	  identical(sym2[,2], sC[,2]))
 147 
	  identical(sym2[,2], sC[,2]))
148 
}
 148 
}
149 
}
 149 
}