# NOT RUN {
# download example data
path <- ebirdst_download("example_data")
# or get the path if you already have the data downloaded
path <- get_species_path("example_data")
# bbox for southern michigan in may
bb_vec <- c(xmin = -86, xmax = -83, ymin = 41.5, ymax = 43.5)
e <- ebirdst_extent(bb_vec, t = c("05-01", "05-31"))
# load and subset raster data
abd <- load_raster(path, product = "abundance")
abd_ss <- ebirdst_subset(abd, ext = e)
# }
Run the code above in your browser using DataLab