https://github.com/cran/Matrix
Tip revision: e13ea09bb366711f390f6c7d7ee0ee661e9aea21 authored by Martin Maechler on 02 February 2013, 00:00:00 UTC
version 1.0-11
version 1.0-11
Tip revision: e13ea09
dtpMatrix.R
#### Triangular Packed Matrices -- Coercion and Methods
setAs("dtpMatrix", "dtrMatrix",
function(from) .Call(dtpMatrix_as_dtrMatrix, from))
## Is this needed? already have coercion to "TsparseMatrix" {FIXME}
setAs("dtpMatrix", "dtTMatrix",
function(from) {
x <- as(from, "TsparseMatrix")
cld <- getClassDef(class(x))
if(extends(cld, "dtTMatrix"))
x
else { ## triangularity lost: should not have happened
warning("inefficient coercion (lost triangularity); please report")
gT2tT(as(x, "dgTMatrix"), uplo = from@uplo, diag = from@diag,
cl = "dgTMatrix", toClass = "dtTMatrix", do.n = FALSE)
}
})
setAs("dtpMatrix", "matrix",
function(from) as(as(from, "dtrMatrix"), "matrix"))
setAs("matrix", "dtpMatrix",
function(from) as(as(from, "dtrMatrix"), "dtpMatrix"))
setAs("pCholesky", "lMatrix",
function(from) as(as(from, "dtpMatrix"), "lMatrix"))
setAs("pBunchKaufman", "lMatrix",
function(from) as(as(from, "dtpMatrix"), "lMatrix"))
setMethod("determinant", signature(x = "dtpMatrix", logarithm = "missing"),
function(x, logarithm, ...) determinant(x, TRUE))
setMethod("determinant", signature(x = "dtpMatrix", logarithm = "logical"),
function(x, logarithm, ...) mkDet(diag(x), logarithm))
setMethod("diag", signature(x = "dtpMatrix"),
function(x, nrow, ncol) .Call(dtpMatrix_getDiag, x),
valueClass = "numeric")
setMethod("diag<-", signature(x = "dtpMatrix"),
function(x, value) {
.Call(dtpMatrix_setDiag,
if(x@diag == "U") .dense.diagU2N(x, "d", isPacked=TRUE) else x,
value)
})
setMethod("norm", signature(x = "dtpMatrix", type = "character"),
function(x, type, ...) .Call(dtpMatrix_norm, x, type),
valueClass = "numeric")
setMethod("norm", signature(x = "dtpMatrix", type = "missing"),
function(x, type, ...) .Call(dtpMatrix_norm, x, "O"),
valueClass = "numeric")
setMethod("rcond", signature(x = "dtpMatrix", norm = "character"),
function(x, norm, ...)
.Call(dtpMatrix_rcond, x, norm),
valueClass = "numeric")
setMethod("rcond", signature(x = "dtpMatrix", norm = "missing"),
function(x, norm, ...)
.Call(dtpMatrix_rcond, x, "O"),
valueClass = "numeric")
setMethod("solve", signature(a = "dtpMatrix", b="missing"),
function(a, b, ...) .Call(dtpMatrix_solve, a),
valueClass = "dtpMatrix")
setMethod("solve", signature(a = "dtpMatrix", b="ddenseMatrix"),
function(a, b, ...) .Call(dtpMatrix_matrix_solve, a, b),
valueClass = "dgeMatrix")
setMethod("solve", signature(a = "dtpMatrix", b="matrix"),
function(a, b, ...) .Call(dtpMatrix_matrix_solve, a, b),
valueClass = "dgeMatrix")
## FIXME: speed up
setMethod("t", signature(x = "dtpMatrix"),
function(x) as(t(as(x, "dtrMatrix")), "dtpMatrix"),
valueClass = "dtpMatrix")