R/mpSumPCA.R

In MExPosition: Multi-table ExPosition

mpSumPCA <- 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 = 'Sum_PCA', 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))	
}