SCM

SCM Repository

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

Diff of /pkg/tests/matprod.R

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

revision 656, Wed Mar 16 16:55:32 2005 UTC revision 657, Wed Mar 16 16:57:52 2005 UTC
# Line 6  Line 6 
6  assert.EQ.mat <- function(M, m, tol = if(show) 0 else 1e-15, show=FALSE) {  assert.EQ.mat <- function(M, m, tol = if(show) 0 else 1e-15, show=FALSE) {
7      ## temporary fix for R-2.0.1      ## temporary fix for R-2.0.1
8      MM <- as(M, "matrix")      MM <- as(M, "matrix")
9      attr(MM, "dimnames") <- NULL      attr(MM, "dimnames") <- attr(m, "dimnames") <- NULL
10      if(show) all.equal(MM, m, tol = tol)      if(show) all.equal(MM, m, tol = tol)
11      else stopifnot(all.equal(MM, m, tol = tol))      else stopifnot(all.equal(MM, m, tol = tol))
12  }  }

Legend:
Removed from v.656  
changed lines
  Added in v.657

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business University of Wisconsin - Madison Powered By FusionForge