# NOT RUN {
# }
# NOT RUN {
data(iris)
iris.md <- distance(iris[,1:4], "mahal")
iris.pco <- pco(iris.md)
# scatterplot of the first two dimensions
plot(iris.pco$vectors[,1], iris.pco$vectors[,2], pch=as.numeric(iris[,5]))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab