## Not run: 
# ## generating n bivariate normal random variables...       
# dat <- rmvnorm(n=100,mean=rep(0,2),sigma=matrix(c(4,2,2,4),2,2)) 
# res <- CM.test(dat)
# res
# 
# ## generating n bivariate t distributed with 10df random variables...       
# dat <- rmvt(n=200,sigma=matrix(c(4,2,2,4),2,2),df=10,delta=rep(0,2)) 
# res1 <- CM.test(dat)
# res1
# 
# data(iris)
# setosa <- iris[1:50, 1:4] # Iris data only for setosa
# res2 <- CM.test(setosa, qqplot = TRUE)
# res2
# ## End(Not run)
Run the code above in your browser using DataLab