# NOT RUN {
# Retrieve the set of samples for the Mato Grosso region
data(samples_modis_4bands)
samples_mt_ndvi <- sits_select(samples_modis_4bands, bands = "NDVI")
# Build a machine learning model based on deep learning
dl_model <- sits_train(
samples_mt_ndvi,
sits_mlp(
layers = c(64, 64),
dropout_rates = c(0.50, 0.40),
epochs = 50
)
)
# get a point with a 16 year time series
point_ndvi <- sits_select(point_mt_6bands, bands = "NDVI")
# classify the point
point_class <- sits_classify(point_ndvi, dl_model)
# plot the classified point
plot(point_class)
# }
Run the code above in your browser using DataLab