R/as.list.mefa.R

Defines functions `as.list.mefa`

`as.list.mefa` <-
function(x, ...)
{
    if (is.null(x$segm) || length(x$segm) == 1) {
        return(list(x$xtab))
    } else {
        return(x$segm)
    }
}

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.