SCM Repository
[matrix] / pkg / R / Auxiliaries.R |
View of /pkg/R/Auxiliaries.R
Parent Directory | 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)
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 |