SCM

SCM Repository

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

Diff of /pkg/Matrix/tests/matprod.R

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

revision 2992, Sat Jun 14 15:50:25 2014 UTC revision 2993, Sat Jun 14 16:21:38 2014 UTC
# Line 588  Line 588 
588      } else if(n %% 25 == 0) cat(n, " ")      } else if(n %% 25 == 0) cat(n, " ")
589  }; cat("\n")  }; cat("\n")
590    
591    ## two with an empty column --- these failed till 2014-06-14
592    X <- as(c(1,3,4,5,3), "indMatrix")
593    Y <- as(c(2,3,4,2,2), "indMatrix")
594    
595    ## kronecker:
596    stopifnot(identical(X %x% Y,
597                        as(as.matrix(X) %x% as.matrix(Y), "indMatrix")))
598    ## crossprod:
599    (XtY <- crossprod(X, Y))# gave warning in Matrix 1.1-3
600    XtY_ok <- as(crossprod(as.matrix(X), as.matrix(Y)), "dgCMatrix")
601    stopifnot(identical(XtY, XtY_ok)) # not true, previously
602    
603    
604  cat('Time elapsed: ', proc.time(),'\n') # for ``statistical reasons''  cat('Time elapsed: ', proc.time(),'\n') # for ``statistical reasons''

Legend:
Removed from v.2992  
changed lines
  Added in v.2993

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