X <- matrix(rnorm(300), ncol = 3)
COV <- cov(X)
MEAN <- colMeans(X)
Maha(X, MEAN, COV)
mahalanobis(X, MEAN, COV)
MahaClassical(X)
MEAN0 <- rep(0, 3)
COV0 <- crossprod(X)/99
MahaOrigin(X)
mahalanobis(X, MEAN0, COV0)
Run the code above in your browser using DataLab