if (sits_run_examples()) {
# Retrieve the samples for Mato Grosso
# train a tempCNN model
ml_model <- sits_train(samples_modis_4bands, ml_method = sits_tempcnn)
# classify the point
bands_model <- sits_bands(ml_model)
point_4bands <- sits_select(point_mt_6bands, bands = bands_model)
point_class <- sits_classify(point_4bands, ml_model)
plot(point_class)
}
Run the code above in your browser using DataLab