## S4 method for signature 'mtdi_distribution,ANY'
plot(x, y = NULL, ...)

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)
}