SCM

SCM Repository

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

Diff of /pkg/R/Matrix.R

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

revision 1550, Tue Sep 12 13:16:30 2006 UTC revision 1551, Tue Sep 12 16:39:13 2006 UTC
# Line 85  Line 85 
85          sparse <- sparseDefault(data)          sparse <- sparseDefault(data)
86    
87      doDN <- TRUE      doDN <- TRUE
88      if (i.M && !forceCheck) {      if (i.M) {
89          sM <- is(data,"sparseMatrix")          sM <- is(data,"sparseMatrix")
90          if((sparse && sM) || (!sparse && !sM))          if(!forceCheck && ((sparse && sM) || (!sparse && !sM)))
91              return(data)              return(data)
92          ## else : convert  dense <-> sparse -> at end          ## else : convert  dense <-> sparse -> at end
93      }      }

Legend:
Removed from v.1550  
changed lines
  Added in v.1551

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