R/pca_align.r

In jjlynch2/OsteoSort: Osteo Sorting of Commingled Human Remains

pca_align <- function(configuration = NULL) {
	results <- NULL #return NULL if no data

	if(!is.null(configuration)) {
		results <- scale(configuration, scale=F)%*%eigen(var(configuration))$vectors
	}

	return(results)
}