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