# NOT RUN {
data(lynxjura)
map <- lynxjura$map
## We keep only "wild" indices.
tmp <- lynxjura$locs[,4]!="D"
locs <- lynxjura$locs[tmp, c("X","Y")]
## We perform a square root transformation
## of the variable to normalize it
map[,4] <- sqrt(map[,4])
## We perform the ENFA
tmp <- data2enfa(map, locs[tmp, c("X","Y")])
(enfa1 <- enfa(dudi.pca(tmp$tab, scannf=FALSE),
tmp$pr, scannf = FALSE))
scatter(enfa1)
# }
Run the code above in your browser using DataLab