# NOT RUN {
# Create a task with 10 observations
task = tsk("penguins")
task$filter(1:10)
# Instantiate Resampling
insample = rsmp("insample")
insample$instantiate(task)
# Train set equal to test set:
setequal(insample$train_set(1), insample$test_set(1))
# Internal storage:
insample$instance # just row ids
# }
Run the code above in your browser using DataLab