SCM

SCM Repository

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

Diff of /pkg/R/sparseVector.R

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

revision 2386, Wed May 27 20:54:45 2009 UTC revision 2387, Fri May 29 12:50:34 2009 UTC
# Line 138  Line 138 
138              ncol <- as.integer(ceiling(n / nrow))              ncol <- as.integer(ceiling(n / nrow))
139          } else { ## both nrow and ncol specified          } else { ## both nrow and ncol specified
140              n.n <- as.double(ncol) * nrow # no integer overflow              n.n <- as.double(ncol) * nrow # no integer overflow
141              if(n.n <  n) stop("nrow * ncol < length(x)")              if(n.n <  n) stop("nrow * ncol < length(x)", domain = NA)
142              if(n.n != n) warning("nrow * ncol != length(x)")              if(n.n != n) warning("nrow * ncol != length(x)", domain = NA)
143          }          }
144      }      }
145      ## now nrow * ncol >= n      ## now nrow * ncol >= n

Legend:
Removed from v.2386  
changed lines
  Added in v.2387

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