if (FALSE) {
data(PAM)
# PAM before subset
plot(PAM, xlab = "Longitude", ylab = "Latitude",
main = "Phyllomedusa species richness")
# Subset PAM to the first 20 species
PAMsub <- lets.subsetPAM(PAM, PAM[[3]][1:20])
plot(PAMsub, xlab = "Longitude", ylab = "Latitude",
main = "Phyllomedusa species richness")
}
Run the code above in your browser using DataLab