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
rcv = rsmp("sptcv_cluto", folds = 5)
rcv$instantiate(task)
# Individual sets:
rcv$train_set(1)
rcv$test_set(1)
# check that no obs are in both sets
intersect(rcv$train_set(1), rcv$test_set(1)) # good!
# Internal storage:
rcv$instance # table
}
}
Run the code above in your browser using DataLab