R/pd.default.R

In maxbox51/ProjDecomp: Decompose a real matrix into scale factors and a scale-independent matrix

Defines functions pd.default

Documented in pd.default

pd.default <-
function(
         A,
         ... ) {
    if (is.matrix(A) || ("Matrix" %in% class(A))) {
	pd.dgTMatrix(as(A,"dgTMatrix"), ...)
    } else {
        stop("The first argument must be a matrix or Matrix object.")
    }
}