# NOT RUN {
dat <- SimDesign1(sample_size=250,
response_prob = c(0.5,0.9,0.3,0.7,0.5,0.8),
stage_one_trt_one_response_prob = 0.7,
stage_one_trt_two_response_prob = 0.4)
PosteriorTrtSeqProb(niter = 1000, dat, design = "design-1")
# }
Run the code above in your browser using DataLab