# NOT RUN {
# Retrieve the set of samples for Mato Grosso region (provided by EMBRAPA)
samples_2bands <- sits_select(samples_modis_4bands, bands = c("NDVI", "EVI"))
# Build a machine learning model
ml_model <- sits_train(samples_2bands, sits_mlr())
# get a point and classify the point with the ml_model
point.tb <- sits_select(point_mt_6bands, bands = c("NDVI", "EVI"))
class.tb <- sits_classify(point.tb, ml_model)
plot(class.tb, bands = c("NDVI", "EVI"))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab