# NOT RUN {
# Retrieve the set of samples for the Mato Grosso region
# Build a machine learning model based on deep learning
fcn_model <- sits_train(samples_mt_4bands, sits_FCN())
# Plot the model
plot(fcn_model)
# get a point and classify the point with the ml_model
point <- sits_select(point_mt_6bands,
bands = c("NDVI", "EVI", "NIR", "MIR")
)
point_class <- sits_classify(point.tb, cnn_model)
plot(point_class, bands = c("NDVI", "EVI"))
# }
Run the code above in your browser using DataLab