SCM

SCM Repository

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

Diff of /pkg/tests/simple.R

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

revision 1206, Tue Jan 24 23:02:36 2006 UTC revision 1207, Wed Jan 25 08:39:10 2006 UTC
# Line 35  Line 35 
35  ###-- Numeric Dense: Crossprod & Solve  ###-- Numeric Dense: Crossprod & Solve
36    
37  set.seed(123)  set.seed(123)
38  mm <- Matrix(rnorm(500 * 150), nc = 150)  mm. <- mm <- Matrix(rnorm(500 * 150), nc = 150)
39  stopifnot(validObject(mm))  stopifnot(validObject(mm))
40  xpx <- crossprod(mm)# alters mm !  xpx <- crossprod(mm)
41  stopifnot(validObject(mm),  stopifnot(identical(mm, mm.),# once upon a time, mm was altered by crossprod()
42            validObject(xpx))            validObject(xpx))
43  str(mm) # 'dge*"  str(mm) # 'dge*"
44  str(xpx)# 'dpo*"  str(xpx)# 'dpo*"

Legend:
Removed from v.1206  
changed lines
  Added in v.1207

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