# NOT RUN {
n = c(3, 6, 0, 0, 0)
y = c(0, 1, 0, 0, 0)
z = c(0, 1, 0, 0, 0)
phi_t = 0.3
phi_e = 0.3
eps_t = 0.1 * phi_t
eps_e = 0.1 * phi_e
select.dose <- select.MinED(n, y, z, phi_t, phi_e, eps_t, eps_e)
print(select.dose)
# }
Run the code above in your browser using DataLab