# NOT RUN {
OB <- organizeBirds(bombusObsShort, sppCol = "scientificName", simplifySppName = TRUE)
grid <- makeGrid(searchPolygon, gridSize = 10)
SB <- summariseBirds(OB, grid=grid)
allSpp <- listSpecies(SB)
focal <- "Bombus campestris"
focalSpSummary(SB, focalSp=focal)
# }
Run the code above in your browser using DataLab