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 618, Sat Mar 5 21:20:42 2005 UTC revision 657, Wed Mar 16 16:57:52 2005 UTC
# Line 11  Line 11 
11  prMatrix <- function(object) {  prMatrix <- function(object) {
12      d <- dim(object)      d <- dim(object)
13      cl <- class(object)      cl <- class(object)
14      cat(paste(d, collapse= " x "), " Matrix of class ", sQuote(cl),      cat(sprintf('%d x %d Matrix of class "%s"\n', d[1], d[2], cl))
         "\n", sep='')  
15      if(cl == "Matrix") { ## have no data slot      if(cl == "Matrix") { ## have no data slot
16          cat("Dim = ", d)          cat("Dim = ", d)
17          if(any(sapply(object@Dimnames,length) > 0)) {          if(any(sapply(object@Dimnames,length) > 0)) {

Legend:
Removed from v.618  
changed lines
  Added in v.657

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