R/PosDefSymmMatrix.R

In distr: Object Oriented Implementation of Distributions

Defines functions PosDefSymmMatrix PosSemDefSymmMatrix

Documented in PosDefSymmMatrix PosSemDefSymmMatrix

# generating function for class 'PosDefSymmMatrix'
PosSemDefSymmMatrix <- function(mat){
    if(is(mat, "PosDefSymmMatrix")) return(as(mat, "PosSemDefSymmMatrix"))
    if(!is.matrix(mat)) mat <- as.matrix(mat)
    new("PosSemDefSymmMatrix", mat)
}

PosDefSymmMatrix <- function(mat){ 
    if(!is.matrix(mat)) mat <- as.matrix(mat)
    new("PosDefSymmMatrix", mat)
}

Try the distr package in your browser