R/margK.R

Defines functions margK

Documented in margK

margK <-
function(m){
    
    n <- dim(m)
    dimnames(m) <- NULL
    if(length(n) == 3) {
        n1 <- n[1] * n[2]
        dim(m) <- c(n1, n[3])
        mm <- apply(m, 2, sum)
    } else {
        cat(" Wrong dimension m")
        return(0)
    }
}

Try the CA3variants package in your browser

Any scripts or data that you put into this service are public.

CA3variants documentation built on Aug. 1, 2019, 5:06 p.m.