if (sits_run_examples()) {
# Reduce summarization function
point2 <-
sits_select(point_mt_6bands, "NDVI") |>
sits_reduce(NDVI_MEDIAN = t_median(NDVI))
# Example of generation mean summarization from a 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.1",
data_dir = data_dir
)
# Reduce NDVI band with mean function
cube_mean <- sits_reduce(
data = cube,
NDVIMEAN = t_mean(NDVI),
output_dir = tempdir()
)
}
Run the code above in your browser using DataLab