# example code
if (sits_run_examples()) {
# Example of classification of a data cube
# create a data cube from local files
data_dir <- system.file("extdata/raster/mod13q1", package = "sits")
cube <- sits_cube(
source = "BDC",
collection = "MOD13Q1-6",
data_dir = data_dir
)
# segment the image
segments <- sits_supercells(
cube = cube,
tile = "012010",
bands = "NDVI",
date = sits_timeline(cube)[1],
step = 10
)
}
Run the code above in your browser using DataLab