R/piecewise_exp_hist-data.R

In BayesFBHborrow: Bayesian Dynamic Borrowing with Flexible Baseline Hazard Function

#' Example data, simulated from a piecewise exponential model.
#'
#' Data is simulated for a historical trial with two columns named "tte" 
#' (time-to-event) and "event" (event indicator).
#' It was simulated using the following parameters: 
#'
#' @docType data
#'
#' @usage data(piecewise_exp_hist)
#'
#' @keywords datasets
#'
#' @examples
#' data(piecewise_exp_cc)
#' data(piecewise_exp_hist)
#' piecewise_exp_hist$X_trt <- 0
#' survival_model <- survival::survfit(survival::Surv(tte, event) ~ X_trt, 
#'                                     data = rbind(piecewise_exp_cc, 
#'                                     piecewise_exp_hist))
#' line_colors <- c("blue", "red", "green")  # Adjust colors as needed
#' line_types <- 1:length(unique(piecewise_exp_cc$X_trt))
#' plot(survival_model, col = line_colors, lty = line_types, 
#'      xlab = "Time (tte)", ylab = "Survival Probability", 
#'      main = "Kaplan-Meier Survival Curves by Treatment")
"piecewise_exp_hist"