if (FALSE) {
# Run simulation first
result <- tite.boinet(
n.dose = 4, start.dose = 1, size.cohort = 3, n.cohort = 10,
toxprob = c(0.05, 0.15, 0.25, 0.40),
effprob = c(0.15, 0.30, 0.45, 0.60),
phi = 0.30, delta = 0.60, n.sim = 100
)
# Format for different uses
original <- format_boinet_results(result, "list")
tidy_data <- format_boinet_results(result, "tidy")
report_tables <- format_boinet_results(result, "gt_ready")
# Use formatted results
print(tidy_data$operating_characteristics)
print(report_tables$oc_table)
}
Run the code above in your browser using DataLab