# Design safe test
alpha <- 0.05
beta <- 0.20
designObj <- designSafeT(1, alpha=alpha, beta=beta)
# Design frequentist test
freqObj <- designFreqT(1, alpha=alpha, beta=beta)
# Simulate under the alternative with deltaTrue=deltaMin
simResults <- simulate(designObj, nSim=100)
plot(simResults)
plot(simResults, showOnlyNRejected=TRUE)
Run the code above in your browser using DataLab