# NOT RUN {
# Retrieve the set of samples for the Mato Grosso region (provided by EMBRAPA)
data(cerrado_2classes)
# obtain a DL model
dl_model <- sits_train(cerrado2classes,
sits_deeplearning(units = c(512, 512),
dropout_rates = c(0.45, 0.25)))
# run the keras diagnostics
sits_keras_diagnostics(dl_model)
# }
Run the code above in your browser using DataLab