SCM

SCM Repository

[matrix] View of /pkg/R/Auxiliaries.R
ViewVC logotype

View of /pkg/R/Auxiliaries.R

Parent Directory Parent Directory | Revision Log Revision Log


Revision 632 - (download) (annotate)
Sun Mar 13 21:00:53 2005 UTC (14 years, 11 months ago) by maechler
File size: 505 byte(s)
mv some to new Auxiliaries file (early in alphabetic sorting!)
#### "Namespace private" Auxiliaries  such as method functions
#### (called from more than one place --> need to be defined early)

## For %*% (M = Matrix; n = numeric):
.M.n <- function(x, y) callGeneric(x, as.matrix(y))
.n.M <- function(x, y) callGeneric(rbind(x), y)

## chol() via "dpoMatrix"
cholMat <- function(x, pivot, LINPACK) {
    px <- as(x, "dpoMatrix")
    if(identical(TRUE, validObject(px, test=TRUE)))
        chol(px)
    else stop("'x' is not positive definite -- chol() undefined.")
}

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