if (FALSE) {
if (mlr3misc::require_namespaces("skmeans", quietly = TRUE)) {
library(mlr3)
library(mlr3spatiotempcv)
task = tsk("cookfarm_mlr3")
task$set_col_roles("Date", "time")
# Instantiate Resampling
rrcv = rsmp("repeated_sptcv_cluto", folds = 3, repeats = 5)
rrcv$instantiate(task)
# Individual sets:
rrcv$iters
rrcv$folds(1:6)
rrcv$repeats(1:6)
# Individual sets:
rrcv$train_set(1)
rrcv$test_set(1)
intersect(rrcv$train_set(1), rrcv$test_set(1))
# Internal storage:
rrcv$instance # table
}
}
Run the code above in your browser using DataLab