setosa = iris[1:50, 1:2] # Iris data only for setosa and two variables
result = hzTest(setosa)
### Perspective Plot ###
mvnPlot(result, type = "persp", default = TRUE)
### Contour Plot ###
mvnPlot(result, type = "contour", default = TRUE)
Run the code above in your browser using DataLab