# NOT RUN {
## right-sided one-sample proportion test
# can observe data after each sample sequentially. Max available
# sample size is 30
# design.MSPRT(test.type="oneProp", null = 0.2, N.max = 30)
# can observe data at every fifth sample sequentially. Max available
# sample size is 30. So there are 6 batches each of size 5.
# design.MSPRT(test.type="oneProp", null = 0.2, N.max = 30,
# batch.seq = rep(5,6))
## right-sided one-sample Z-test
# can observe data after each sample sequentially. Max available
# sample size is 30
# design.MSPRT(test.type="oneZ", null = 3, sigma0 = 1.5,
# N.max = 30)
# can observe data at every fifth sample sequentially. Max available
# sample size is 30. So there are 6 batches each of size 5.
# design.MSPRT(test.type="oneZ", null = 3, sigma0 = 1.5,
# N.max = 30, batch.seq = rep(5,6))
## right-sided one-sample T-test
# can observe data after each sample sequentially. Max available
# sample size is 30
# design.MSPRT(test.type="oneT", N.max = 30)
# can observe data at every fifth sample sequentially. Max available
# sample size is 30. So there are 6 batches each of size 5.
# design.MSPRT(test.type="oneT", N.max = 30, batch.seq = rep(5,6))
## right-sided two-sample Z-test
# can observe data after each sample for each group sequentially.
# Max available sample size is 30 for both groups
# design.MSPRT(test.type="twoZ", sigma0 = 1.5, N1.max = 30, N2.max = 30)
# can observe data at every fifth sample for each group sequentially.
# Max available sample size is 30 for both groups. So there are 6 batches
# each of size 5 for each group.
# design.MSPRT(test.type="twoZ", sigma0 = 1.5,
# batch1.seq = rep(5,6), batch2.seq = rep(5,6),
# N1.max = 30, N2.max = 30)
## right-sided two-sample T-test
# can observe data after each sample for each group sequentially.
# Max available sample size is 30 for both groups
# design.MSPRT(test.type="twoT", N1.max = 30, N2.max = 30)
# can observe data at every fifth sample for each group sequentially.
# Max available sample size is 30 for both groups. So there are 6 batches
# each of size 5 for each group.
# design.MSPRT(test.type="twoT", N1.max = 30, N2.max = 30,
# batch1.seq = rep(5,6), batch2.seq = rep(5,6))
# }
Run the code above in your browser using DataLab