R/maha.R

maha <-
function(x)
{
# Generates the classical mahalanobis distances.
	center <- apply(x, 2, mean)
	cov <- var(x)
	return(sqrt(mahalanobis(x, center, cov)))
}
musto101/wilcox_R documentation built on May 23, 2019, 10:52 a.m.