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