`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) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.