# 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 <- replicateTTests(nPlan=designObj$nPlan, deltaTrue=1, parameter=designObj$parameter,
nPlanFreq=freqObj$nPlan)
plotHistogramDistributionStoppingTimes(
simResults$safeSim, nPlan = simResults$nPlan,
deltaTrue = simResults$deltaTrue)
Run the code above in your browser using DataLab