powered by
data(morphosport)
morphosport
morphosport$sport
data(morphosport) plot(discrimin(dudi.pca(morphosport$tab, scan = FALSE), morphosport$sport, scan = FALSE))
Run the code above in your browser using DataLab