The R Project SVN R-packages

Rev

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

Rev 4769 Rev 5017
Line 50... Line 50...
50 
 
 50 
 
51 
M <- Matrix(cbind(1,2:4))
 51 
M <- Matrix(cbind(1,2:4))
52 
M \%*\% d2 #> `fast' multiplication
 52 
M \%*\% d2 #> `fast' multiplication
53 
 
 53 
 
54 
chol(d2) # trivial
 54 
chol(d2) # trivial
- 
 
 55 
stopifnot(is(cd2 <- chol(d2), "ddiMatrix"),
- 
 
 56 
          all.equal(cd2@x, c(sqrt(10),1)))
55 
}
 57 
}
56 
\keyword{classes}
 58 
\keyword{classes}