# NOT RUN {
grid <- makeGrid(searchPolygon, gridSize = 10)
OB <- organizeBirds(bombusObs, sppCol = "scientificName",
taxonRankCol = "taxonRank", taxonRank = "SPECIES",
simplifySppName = TRUE)
SB <- summarizeBirds(OB, grid=grid)
CM <- communityMatrixGrid(SB)
lCM <- lengths(CM) ## Which cells are empty
## library(vegan)
## R <- lapply(CM[which(lCM>0)], specaccum)
# }
Run the code above in your browser using DataLab