data(lynxjura)
## We keep only "wild" indices.
tmp <- lynxjura$loc[,4] != "D"
map <- lynxjura$map
pts <- lynxjura$locs[tmp, c("X","Y")]
(enfa1 <- enfa(map, pts, scannf = FALSE))
## Compute the prediction
pred <- predict(enfa1)
image(pred)
contour(pred, col="green", add=T)
points(pts, col = "red", pch = 16)
## Lighter areas are the most preferred areas
Run the code above in your browser using DataLab