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