# NOT RUN {
# Retrieve the set of samples for Mato Grosso region (provided by EMBRAPA)
samples_mt_ndvi <- sits_select(samples_modis_4bands, bands = "NDVI")
# classify the point
model_svm <- sits_train(samples_mt_ndvi, ml_method = sits_svm())
point_ndvi <- sits_select(point_mt_6bands, bands = "NDVI")
class_ndvi.tb <- sits_classify(point_ndvi, model_svm)
# plot the classification
plot(class_ndvi.tb)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab