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 May 2, 2019, 5 p.m.