if (FALSE) {
data(chamois)
locs <- chamois$locs
map <- chamois$map
## prepare the data
tab <- slot(map, "data")
tab$Vegetation <- NULL
pr <- slot(count.points(locs, map), "data")[,1]
en <- enfa(dudi.pca(tab, scannf=FALSE), pr, scannf = FALSE)
(tutu <- randtest(en, nrepet = 100))
plot(tutu)
}
Run the code above in your browser using DataLab