## Not run:
# data(tea)
# res.enmca=ENMCA(tea[,1:18])
# x<-res.enmca$MCA$ind$coord[,1:2]
# b<-res.enmca$data[,ncol(res.enmca$data)]
# ENellipse(matP=x, cluster=b, resampling="population", iter=500, alpha = 0.05, coord = c(1, 2), eig=res.enmca$MCA$eig, cex = 1, color = NULL)
# ## End(Not run)
Run the code above in your browser using DataLab