dt_prepared <- data.table::data.table(
date = as.Date(c("2023-01-01", "2023-01-05", "2023-01-10")),
value = c(50, 60, 70)
)
result <- split_data_counterfactual(
dt_prepared,
application_start = as.Date("2023-01-03"),
application_end = as.Date("2023-01-08")
)
print(result$train)
print(result$apply)
Run the code above in your browser using DataLab