19 lines
499 B
R
19 lines
499 B
R
# 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)
|