## 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