SCM Repository

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

Diff of /pkg/R/sparseMatrix.R

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