# Design safe test
alpha <- 0.05
beta <- 0.20
deltaMin <- 1
designObj <- designSafeT(deltaMin, alpha=alpha, beta=beta, nSim=100)
# Design frequentist test
freqObj <- designFreqT(deltaMin, alpha=alpha, beta=beta)
# Simulate based on deltaTrue=deltaMin
simResultsDeltaTrueIsDeltaMin <- simulate(object=designObj, nSim=100)
# Simulate based on deltaTrue > deltaMin
simResultsDeltaTrueIsLargerThanDeltaMin <- simulate(
object=designObj, nSim=100, deltaTrue=2)
# Simulate under the null deltaTrue = 0
simResultsDeltaTrueIsNull <- simulate(
object=designObj, nSim=100, deltaTrue=0)
simulate(object=designObj, deltraTrue=0, nSim=100, freqOptioStop=TRUE,
nPlanFreq=freqObj$nPlan)
Run the code above in your browser using DataLab