R/mpMFA.R

In MExPosition: Multi-table ExPosition

## 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))
}