Nothing
`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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.