if (sits_run_examples()) {
# A dataset containing a tibble with time series samples
# for the Mato Grosso state in Brasil
# create a list to store the results
results <- list()
# accuracy assessment lightTAE
acc_rfor <- sits_kfold_validate(
samples_modis_ndvi,
folds = 5,
ml_method = sits_rfor()
)
# use a name
acc_rfor$name <- "Rfor"
# put the result in a list
results[[length(results) + 1]] <- acc_rfor
# save to xlsx file
sits_to_xlsx(
results,
file = tempfile("accuracy_mato_grosso_dl_", fileext = ".xlsx")
)
}
Run the code above in your browser using DataLab