Nothing
## Multiple Factor Analysis
mpMFA <- function(data, column.design, make.columndesign.nominal = TRUE, DESIGN=NULL, make.design.nominal = TRUE, graphs = TRUE)
{
main <- deparse(substitute(data))
DESIGN <- designCheck(data, DESIGN, make.design.nominal)
res <- mpSTATIS(data, column.design, make.columndesign.nominal = make.columndesign.nominal, statis.prepro.option = 'MFA', graphs=FALSE)
class(res) <- c("mpSTATIS", "list")
mpPlotInfo <- mpGraphs(res = res$mexPosition.Data, table = res$mexPosition.Data$Overview$groupmatrix, DESIGN = DESIGN, main = main, graphs = graphs)
return (mpOutputHandler(res=res$mexPosition.Data,mpPlotInfo=mpPlotInfo))
}
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.