## specify design prior
to1 <- 2
so1 <- 1
dprior <- designPrior(to = to1, so = so1)
## compute required standard error for significance at one-sided 2.5%
sregionfunSig <- function(sr, alpha = 0.025) {
successRegion(intervals = cbind(stats::qnorm(p = 1- alpha)*sr, Inf))
}
ssd1 <- ssd(sregionfun = sregionfunSig, dprior = dprior, power = 0.8)
print(ssd1)
Run the code above in your browser using DataLab