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_ndvi,
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 = tempfile("accuracy_mato_grosso_dl_", fileext = ".xlsx")
)
}
Run the code above in your browser using DataLab