R/dim.mefa.R

`dim.mefa` <-
function (x) 
{
    nseg <- if (is.null(x$segm)) 1 else length(x$segm)
    out <- c(nrow(x$xtab), ncol(x$xtab), nseg)
    return(out)
}
psolymos/mefa documentation built on Oct. 10, 2021, 6:22 p.m.