https://github.com/cran/Matrix
Tip revision: a2d2fd04dc6e731e42acbeeca47d400bdd0f951b authored by Douglas Bates on 08 January 2006, 00:00:00 UTC
version 0.99-6
version 0.99-6
Tip revision: a2d2fd0
dtCMatrix.R
setMethod("t", signature(x = "dtCMatrix"),
function(x) .Call("tsc_transpose", x, PACKAGE = "Matrix"),
valueClass = "dtCMatrix")
setAs("dtCMatrix", "ltCMatrix",
function(from) new("ltCMatrix", i = from@i, p = from@p,
uplo = from@uplo, diag = from@diag,
Dim = from@Dim, Dimnames = from@Dimnames))
setAs("dtCMatrix", "dgCMatrix",
function(from) {
if(from@diag == "U") { ## add diagonal of 1's
##FIXME: do this smartly - directly {in C or R}
as(as(from, "dgTMatrix"), "dgCMatrix")
}
else
new("dgCMatrix",
i = from@i, p = from@p, x = from@x,
Dim = from@Dim, Dimnames = from@Dimnames)
})
setAs("dtCMatrix", "dgTMatrix",
function(from)
.Call("tsc_to_dgTMatrix", from, PACKAGE = "Matrix"))
setAs("dtCMatrix", "dgeMatrix",
function(from) as(as(from, "dgTMatrix"), "dgeMatrix"))