R/makeRowProfiles.R

In ExPosition: Exploratory Analysis with the Singular Value Decomposition

makeRowProfiles <-
function(X,weights=NULL,masses=NULL,hellinger=FALSE){
	
	X_dimensions <- dim(X)
	colTotal <- colSums(X)
	rowTotal <- rowSums(X)
	grandTotal <- sum(X)
	
	if(hellinger){
		return(hellingerNorm(X,X_dimensions,colTotal,rowTotal,grandTotal,weights,masses))
	}else{
		return(caNorm(X,X_dimensions,colTotal,rowTotal,grandTotal,weights,masses))
	}

}