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 512, Fri Feb 4 23:45:12 2005 UTC revision 538, Thu Feb 10 13:50:27 2005 UTC
# Line 25  Line 25 
25  {  {
26      if (is(data, "Matrix")) return(data)      if (is(data, "Matrix")) return(data)
27      if (is.matrix(data)) { val <- data }      if (is.matrix(data)) { val <- data }
28      else {      else { ## cut & paste from "base::matrix" :
29          if (missing(nrow))          if (missing(nrow))
30              nrow <- ceiling(length(data)/ncol)              nrow <- ceiling(length(data)/ncol)
31          else if (missing(ncol))          else if (missing(ncol))

Legend:
Removed from v.512  
changed lines
  Added in v.538

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