if (sits_run_examples()) {
# reading a lat/long from a local cube
# create a cube from local files
data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
raster_cube <- sits_cube(
source = "BDC",
collection = "MOD13Q1-6.1",
data_dir = data_dir
)
# reading samples from a cube based on a CSV file
csv_file <- system.file("extdata/samples/samples_sinop_crop.csv",
package = "sits"
)
points <- sits_get_data(cube = raster_cube, samples = csv_file)
}
Run the code above in your browser using DataLab