if (requireNamespace("rsample", quietly = TRUE)) {
df <- data.frame(
subject = rep(1:10, each = 2),
outcome = rbinom(20, 1, 0.5),
x1 = rnorm(20),
x2 = rnorm(20)
)
splits <- make_split_plan(df, outcome = "outcome",
mode = "subject_grouped", group = "subject", v = 5)
rset <- as_rsample(splits, data = df)
}
Run the code above in your browser using DataLab