if (sits_run_examples()) {
# get the bbox of a set of samples
sits_bbox(samples_modis_ndvi)
# get the bbox of a cube in WGS84
data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
cube <- sits_cube(
source = "BDC",
collection = "MOD13Q1-6",
data_dir = data_dir
)
sits_bbox(cube, as_crs = "EPSG:4326")
}
Run the code above in your browser using DataLab