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)
}

Try the mefa package in your browser

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

mefa documentation built on Oct. 7, 2021, 9:11 a.m.