# NOT RUN {
# the termination thresholds are obtained from design.MSPRT()
## One-sample proportion test
## finding OC at theta = 0.3
# OC.MSPRT(test.type = "oneProp", null = 0.2,
# term.thresh = 22.63, theta = 0.3, N.max = 30)
## One-sample Z-test
## finding OC at theta = 4
# OC.MSPRT(test.type = "oneZ", null = 3, sigma0 = 1.5,
# term.thresh = 27.856, theta = 4, N.max = 30)
## One-sample T-test
## finding OC at theta = 4
# OC.MSPRT(test.type = "oneT", null = 3,
# term.thresh = 33.152, theta = 4, N.max = 30)
## Two-sample Z-test
## finding OC at theta = 1
# OC.MSPRT(test.type = "twoZ", sigma0 = 1.5, term.thresh = 27.928,
# theta = 1, N1.max = 30, N2.max = 30)
## Two-sample T-test
## finding OC at theta = 1
# OC.MSPRT(test.type = "twoT", term.thresh = 32.972,
# theta = 1, N1.max = 30, N2.max = 30)
# }
Run the code above in your browser using DataLab