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)
    }
}
psolymos/mefa documentation built on Oct. 10, 2021, 6:22 p.m.