## Not run:
# L <- -0.2
# U <- 0.2
# sigma <- 0.4
# alpha <- 0.05
# beta <- 0.2
# K <- 4
#
# # the sample size per group with a traditional nonsequential design
# n.fix <- nfix(r, L,U,theta,sigma,alpha,beta)
#
#
# # default
# # there are two ways to generate the boundary plots
# # 1. specify plot=TRUE (default) in "binding()"
# equivonly(L, U, sigma, n.fix$n1, n.fix$n2, 1:K/K, alpha)
#
# # 2. specify plot=FALSE in "binding()" and apply the "figureE()" command
# bound <- equivonly(L, U, sigma, n.fix$n1, n.fix$n2, 1:K/K, alpha, plot=FALSE)
# figureE(bound, K)
# ## End(Not run)
Run the code above in your browser using DataLab