# NOT RUN {
# read a tibble with 400 samples of Cerrado and 346 samples of Pasture
data(cerrado_2classes)
# perform a 2 fold validation of this sample file
pred_ref <- sits_kfold_validate(cerrado_2classes,
folds = 2,
ml_method = sits_rfor(num_trees = 300)
)
# calculate and print the confusion matrix
conf_matrix <- sits_conf_matrix(pred_ref)
# }
Run the code above in your browser using DataLab