SCM

SCM Repository

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

Diff of /pkg/R/sparseMatrix.R

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

revision 2157, Tue Mar 25 15:00:01 2008 UTC revision 2158, Fri Mar 28 17:07:54 2008 UTC
# Line 480  Line 480 
480                       stop("invalid 'type'"))                       stop("invalid 'type'"))
481            })            })
482    
483  setMethod("rcond", signature(x = "sparseMatrix", type = "character"),  setMethod("rcond", signature(x = "sparseMatrix", norm = "character"),
484            function(x, type, ...) {            function(x, norm, ...) {
485                d <- dim(x)                d <- dim(x)
486                ## FIXME: qr.R(qr(.)) warns about differing R (permutation!)                ## FIXME: qr.R(qr(.)) warns about differing R (permutation!)
487                ##        really fix qr.R() *or* go via dense in any cases                ##        really fix qr.R() *or* go via dense in any cases
# Line 489  Line 489 
489                          warning("rcond(.) via sparse -> dense coercion")                          warning("rcond(.) via sparse -> dense coercion")
490                          as(x, "denseMatrix")                          as(x, "denseMatrix")
491                      } else if(d[1] > d[2]) qr.R(qr(x)) else qr.R(qr(t(x))),                      } else if(d[1] > d[2]) qr.R(qr(x)) else qr.R(qr(t(x))),
492                      type = type)                      norm = norm, ...)
493            })            })
494    
495  setMethod("cov2cor", signature(V = "sparseMatrix"),  setMethod("cov2cor", signature(V = "sparseMatrix"),

Legend:
Removed from v.2157  
changed lines
  Added in v.2158

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