SCM

SCM Repository

[matrix] View of /pkg/tests/simple.R
ViewVC logotype

View of /pkg/tests/simple.R

Parent Directory Parent Directory | Revision Log Revision Log


Revision 509 - (download) (annotate)
Fri Feb 4 23:34:01 2005 UTC (15 years ago) by maechler
File size: 312 byte(s)
some new tests, using stopifnot()
library(Matrix)

set.seed(123)
mm <- Matrix(rnorm(500 * 150), nc = 150)
stopifnot(validObject(mm))
xpx <- crossprod(mm)# alters mm !
stopifnot(validObject(mm))
stopifnot(validObject(xpx))
str(mm)
str(xpx)
xpy <- crossprod(mm, rnorm(500))
res <- solve(xpx, xpy)
str(xpx)#
stopifnot(validObject(xpx))

proc.time()

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