# NOT RUN {
if (interactive()) {
mtdi_dist <- mtdi_lognormal(CV = 2
,median = 5
,units = "mg/kg")
# Setting pre-specified dose levels via options() causes
# toxicity probabilities to be annotated on the plot.
old <- options(dose_levels = c(0.5, 1, 2, 4, 6))
plot(mtdi_dist, col = "red")
options(old)
}
# }
Run the code above in your browser using DataLab