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_ltae <- sits_kfold_validate(samples_modis_4bands,
folds = 5,
multicores = 1,
ml_method = sits_lighttae()
)
# use a name
acc_ltae$name <- "LightTAE"
# put the result in a list
results[[length(results) + 1]] <- acc_ltae
# save to xlsx file
sits_to_xlsx(results, file = "./accuracy_mato_grosso_dl.xlsx")
}
Run the code above in your browser using DataLab