print.ssdRS {BayesRepDesign} | R Documentation |
"ssdRS"
Print method for class "ssdRS"
## S3 method for class 'ssdRS'
print(x, ...)
x |
Object of class |
... |
Other arguments (for consistency with the generic) |
Prints text summary in the console and invisibly returns the
"ssdRS"
object
Samuel Pawel
## 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)