# Simulate an ICU cohort for learning target trial emulation.
# The simulation logic lives in R/simulate_icu_cohort.R.

suppressPackageStartupMessages(library(readr))
suppressPackageStartupMessages(library(skimr))

source("R/simulate_icu_cohort.R")

icu_data <- simulate_icu_cohort(n_patients = 1000, seed = 20260531)

write_csv(
  icu_data,
  file = "data/icu_septic_shock_base_r.csv"
)

cli::cli_alert_success("Wrote simulated cohort to {.file data/icu_septic_shock_base_r.csv}.")

skim(icu_data)