# NOT RUN {
# Create a task with 10 observations
task = tsk("penguins")
task$filter(1:10)
# Instantiate Resampling
subsampling = rsmp("subsampling", repeats = 2, ratio = 0.5)
subsampling$instantiate(task)
# Individual sets:
subsampling$train_set(1)
subsampling$test_set(1)
# Disjunct sets:
intersect(subsampling$train_set(1), subsampling$test_set(1))
# Internal storage:
subsampling$instance$train # list of index vectors
# }
Run the code above in your browser using DataLab