A function to calculate variance explained by each Principal Component for MEDALS

This function returns the variance explained by each PC and the cumulative variance explained in the medals package, this should be used with the output of imaging.cp

pc.var(mat, n)

Arguments

mat	The crossproduct matrix, this can be the output of imaging.cp
n	The number of observations in the original matrix. This can be the output for imaging.suff.stat

Value

List of 2 elements: var: variance of each component, cum_pct: cumulative percent variance explained