# NOT RUN {
pars <- list(z = 4.2, D_R = 3.9, temp_ref = 55)
opts <- list(maxeval=200,local_finish="DHC")
# }
# NOT RUN {
OED <- isothermal_OED("Bigelow", pars, n_points = 5, criterion = "E-mod",
min_time = 0, max_time = 100, min_temp = 52.5, max_temp = 60,
opts = opts)
plot(OED)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab