SCM

SCM Repository

[matrix] Diff of /pkg/inst/test-tools.R
ViewVC logotype

Diff of /pkg/inst/test-tools.R

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

revision 2184, Sat Apr 26 20:32:39 2008 UTC revision 2185, Sat Apr 26 20:33:16 2008 UTC
# Line 324  Line 324 
324                               as(m12, "generalMatrix")))                               as(m12, "generalMatrix")))
325    
326      if(doOps) {      if(doOps) {
         if(extends(cld, "dMatrix")) { ## <<<<<<<<< FIXME! should *NOT* be needed!  
327              ## makes sense with non-trivial m (!)              ## makes sense with non-trivial m (!)
328              CatF("2*m =?= m+m: ")              CatF("2*m =?= m+m: ")
329              if(identical(2*m, m+m)) Cat("identical\n")              if(identical(2*m, m+m)) Cat("identical\n")
# Line 350  Line 349 
349              }              }
350              else assertError(determinant(m))              else assertError(determinant(m))
351          }          }
     }  
352    
353      if(doCoerce && canCoerce("matrix", clNam)) {      if(doCoerce && canCoerce("matrix", clNam)) {
354          CatF("as(<matrix>, ",clNam,"): ", sep='')          CatF("as(<matrix>, ",clNam,"): ", sep='')

Legend:
Removed from v.2184  
changed lines
  Added in v.2185

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