https://github.com/cran/Matrix
Tip revision: f0c53d7e01345fc68fb3686d88d520c5120bfe6d authored by Douglas Bates on 20 April 2005, 00:00:00 UTC
version 0.95-7
version 0.95-7
Tip revision: f0c53d7
dpoMatrix.R
#### Positive-definite Symmetric Matrices -- Coercion and Methods
setAs("dpoMatrix", "dppMatrix",
function(from) as(as(from, "dspMatrix"), "dppMatrix"))
setMethod("chol", signature(x = "dpoMatrix"),
function(x, pivot, LINPACK)
.Call("dpoMatrix_chol", x))
setMethod("rcond", signature(x = "dpoMatrix", type = "character"),
function(x, type, ...)
.Call("dpoMatrix_rcond", x, type),
valueClass = "numeric")
setMethod("rcond", signature(x = "dpoMatrix", type = "missing"),
function(x, type, ...)
.Call("dpoMatrix_rcond", x, "O"),
valueClass = "numeric")
setMethod("solve", signature(a = "dpoMatrix", b = "missing"),
function(a, b, ...)
.Call("dpoMatrix_solve", a),
valueClass = "dpoMatrix")
setMethod("solve", signature(a = "dpoMatrix", b = "dgeMatrix"),
function(a, b, ...)
.Call("dpoMatrix_dgeMatrix_solve", a, b),
valueClass = "dgeMatrix")
setMethod("solve", signature(a = "dpoMatrix", b = "matrix"),
function(a, b, ...)
.Call("dpoMatrix_matrix_solve", a, b),
valueClass = "matrix")
##setMethod("solve", signature(a = "dpoMatrix", b = "numeric"),
## function(a, b, ...)
## as.numeric(.Call("dpoMatrix_matrix_solve",
## a, as.matrix(b))),
## valueClass = "numeric")