## Not run:
# L <- -0.2
# U <- 0.2
# theta <- 0
# sigma <- 0.4
# alpha <- 0.05
# beta <- 0.2
# K <- 4
# bound <- binding(L, U, theta, sigma, n.fix$n1, n.fix$n2, 1:K/K, alpha, beta, plot=FALSE)
# figureEF(bound, K, 3,6)
# ## End(Not run)
Run the code above in your browser using DataLab