# NOT RUN {
data(puechabon)
sahr <- puechabon$sahr
s <- sahrlocs2kselect(sahr)
# 1. PCA of the dataset
pc <- dudi.mix(s$tab, scannf = FALSE)
# 2. k-select analysis
kn <- kselect(pc, s$factor, s$weight, scannf = FALSE)
scatter(kn)
# }
Run the code above in your browser using DataLab