data(butterflies)
no.of.spp(butterflies)
no.of.ind(butterflies)
jj1 <- count(c(dogs=7,pigs=3,crabs=0,slugs=1))
jj2 <- count(c(squid=0,dogs=3,bugs=0))
jj3 <- count(c(bugs=3,rats=0,crabs=3,cats=0))
extinct(jj1 + jj2)
extinct(jj3) #rats and cats
extant(jj3) #bugs and crabs
singletons(jj1)
singletons(jj2) # empty
singletons(jj1 + jj3) # slugs
Run the code above in your browser using DataLab