# NOT RUN {
ob <- organizeBirds(bombusObsShort)
grid <- makeGrid(gotaland, gridSize = 10)
SB <- summarizeBirds(ob, grid)
nObsG <- rowSums(SB$spatioTemporal[,,13,"nObs"], na.rm = FALSE)
nObsG2 <- SB$spatial$nObs
any(nObsG != nObsG2, na.rm = TRUE) ## Check, two ways to obtain the same
# }
Run the code above in your browser using DataLab