library(tourr)
data(olive)
res <- EPPlab(olive[,3:10],PPalg="PSO",PPindex="KurtosisMin",n.simu=10, maxiter=20)
# Plot with kernel estimator
plot(res)
# Just the best 5 and then 8
plot(res,which=c(1:5,8))
# Plot as histogram
plot(res,type="histogram")
# Plot an angles plot
plot(res,type="angles")
Run the code above in your browser using DataLab