SCM

SCM Repository

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

Diff of /pkg/R/diagMatrix.R

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

revision 2112, Mon Feb 18 08:24:46 2008 UTC revision 2120, Tue Mar 4 21:44:41 2008 UTC
# Line 211  Line 211 
211          x[i, , drop=drop]          x[i, , drop=drop]
212      else      else
213          x[i,j, drop=drop]          x[i,j, drop=drop]
214      if(isDiagonal(x)) as(x, "diagonalMatrix") else x      if(isS4(x) && isDiagonal(x)) as(x, "diagonalMatrix") else x
215  }  }
216    
217  setMethod("[", signature(x = "diagonalMatrix", i = "index",  setMethod("[", signature(x = "diagonalMatrix", i = "index",

Legend:
Removed from v.2112  
changed lines
  Added in v.2120

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