# Example for a basket trial with Fujikawa's Design
design <- setup_fujikawa(k = 3, p0 = 0.2)
# One facet per basket
library(ggplot2)
ggplot() +
geom_prior(design) +
facet_wrap(vars(basket))
# Colour different baskets
ggplot() +
geom_prior(design, aes(colour = basket))
Run the code above in your browser using DataLab