# Exercise 18.1 SpeciesArea non-flying mammals on S E Asian islands
# Original data from Heaney, L.R. (1984) Mammalian species richness on islands on the Sunda Shelf, Southeast Asia. Oecologia, 61,11 17.

#install.packages("Stat2Data") # this package is sometimes installed automatically
library(Stat2Data)
data(SpeciesArea)
#SpeciesArea
attach(SpeciesArea)
plot(logArea,logSpecies,pch=17,xlab="Log_e(Area(km^2))",ylab="Log_e(Number of Species)")
text(logArea+0.3,logSpecies,rownames(SpeciesArea))



## by eye we can pick out five islands that lie above an otherwise virtually linear relationship between log(species) and log(e)(area)
name[c(8,9,10,11,13)]
# [1] Karimata Besar Tioman         Siantan        Sirhassan      Penebangan    
# 14 Levels: Banggi Bangka Borneo Bunguran Java Jemaja Karimata Besar ... Tioman


detach(SpeciesArea)