# NOT RUN {
# Retrieve the set of samples for the Mato Grosso (provided by EMBRAPA)
# Build a machine learning model based on deep learning
tc_model <- sits_train(samples_modis_4bands, sits_TempCNN(epochs = 75))
# Plot the model
plot(tc_model)
# get a point and classify the point with the ml_model
point <- sits_select(point_mt_6bands, bands = c("NDVI", "EVI", "NIR", "MIR"))
class <- sits_classify(point, tc_model)
plot(class, bands = c("NDVI", "EVI"))
# }
Run the code above in your browser using DataLab