# NOT RUN {
# hazard ratio to beat at final analysis
hrMDD <- 0.8173
# number of events at final analysis
nevents <- 381
# prior
hr0 <- 0.7
# SE for a normal prior corresponding to information of 50 events in 1:1 randomized trial
sd0 <- sqrt(4 / 50)
# parameters of flat prior
width1 <- 0.5
height1 <- 1
# compute bpp
bpp_t2e(prior = "normal", successHR = hrMDD, d = nevents,
priorHR = hr0, priorsigma = sd0)
bpp_t2e(prior = "flat", successHR = hrMDD, d = nevents,
priorHR = hr0, width = width1, height = height1)
# }
Run the code above in your browser using DataLab