https://github.com/cran/Matrix
Tip revision: 19f0062d379d9a43a18a1dc7ddacd12c535fc08d authored by Douglas Bates on 04 July 2005, 00:00:00 UTC
version 0.97-1
version 0.97-1
Tip revision: 19f0062
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")