# \donttest{
if (requireNamespace("rsample", quietly = TRUE)) {
# Temporal data - ensures chronological split
ts_data <- data.frame(
date = seq(as.Date("2020-01-01"), by = "day", length.out = 100),
value = cumsum(rnorm(100))
)
split <- borg_initial_split(ts_data, prop = 0.8, time = "date")
}
# }
Run the code above in your browser using DataLab