if (sits_run_examples()) {
# get the labels for a time series set
labels_ts <- sits_labels(samples_modis_ndvi)
# get labels for a set of patterns
labels_pat <- sits_labels(sits_patterns(samples_modis_ndvi))
# create a random forest model
rfor_model <- sits_train(samples_modis_ndvi, sits_rfor())
# get lables for the model
labels_mod <- sits_labels(rfor_model)
# 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
)
# classify a data cube
probs_cube <- sits_classify(
data = cube, ml_model = rfor_model, output_dir = tempdir()
)
# get the labels for a probs cube
labels_probs <- sits_labels(probs_cube)
}
Run the code above in your browser using DataLab