## deprecated in 2.2.1
## mauchley.test <- function(object, Sigma=diag(nrow=p),
##                           T = Thin.row(proj(M)-proj(X)),
##                           M = diag(nrow=p),
##                           X = ~0,
##                           idata=data.frame(index=seq(length=p)),...)
## {
## 	.Deprecated("mauchly.test")
## 	UseMethod("mauchly.test")
## }