library(tourr)
data(olive)
res <- EPPlab(olive[,3:10],PPalg="PSO",PPindex="KurtosisMin",n.simu=10, maxiter=20)
screeplot(res)
# Pretty useless:
screeplot(res,type="barplot")
screeplot(res,which=1:5)
Run the code above in your browser using DataLab