# NOT RUN {
# Retrieve the set of samples for Mato Grosso region (provided by EMBRAPA)
# Select the NDVI band
samples_mt_ndvi <- sits_select(samples_mt_4bands, bands = "NDVI")
# Train a QDA model
qda_model <- sits_train(samples_mt_ndvi, sits_qda())
# Classify a point
class.tb <- sits_classify(point_ndvi, qda_model)
# Plot results
plot(class.tb)
# }
Run the code above in your browser using DataLab