# NOT RUN {
# Example from table 1 of Lloyd (2020)
n=c(5,6,5,9)
a=c(2,4,5,12)
b=c(5,9,11,13)
y=c(4,2,5) # This is the actual outcome. The trial stopped for
# superiority at stage m=3 with s=11 successes.
inference(n,a,b,y,type="CP")
# Results happen to be identical for type="LR" but different
# for the alternative ordering functions "JT" and "ML"
# }
Run the code above in your browser using DataLab