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

# suppressPackageStartupMessages() keeps package startup text out of the console.
# This makes the important output easier to read when learning.
suppressPackageStartupMessages({
  library(skimr)
})

# source() runs another R file.
# After this line runs, simulate_icu_cohort() is available in this script.
source("R/simulate_icu_cohort.R")

# This calls our reusable simulation function.
# n_patients controls the number of rows.
# seed controls reproducibility.
icu_data <- simulate_icu_cohort(n_patients = 1000, seed = 20260531)

# cli::cli_alert_success() prints a nicely formatted success message.
cli::cli_alert_success("Simulated an in-memory ICU cohort with {nrow(icu_data)} patients.")

# skim() gives a quick learner-friendly overview of the dataset.
# It shows variable types, missingness, summary statistics, and small histograms.
skim(icu_data)