if (FALSE) {
result <- gboinet(...)
tidy_data <- extract_boinet_data(result)
# Use tidy data for custom analysis
library(ggplot2)
tidy_data$operating_characteristics |>
ggplot(aes(x = dose_level, y = selection_prob)) +
geom_col()
}
Run the code above in your browser using DataLab