# \donttest{
# Create BOIN simulation results
result <- sim_boin(
n_trials = 1000,
target = 0.30,
p_true = c(0.10, 0.25, 0.40),
n_cohort = 10,
cohort_size = 3,
seed = 123
)
# Print with absolute numbers (default)
print(result$summary, scenario_name = "Absolute Numbers")
# Print with percentages
print(result$summary, scenario_name = "Percentages", percent = TRUE)
# Print as Markdown table
print(result$summary, kable = TRUE, kable_format = "pipe")
# Print as HTML table with enhanced styling
print(result$summary, kable = TRUE, kable_format = "html")
# }
Run the code above in your browser using DataLab