ready set go

2026-06-03 11:28:14 -08:00
commit 097f88f85d
22 changed files with 8793 additions and 0 deletions
@@ -0,0 +1,18 @@
+# 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)