plot-mtdi_distribution-ANY-method: Visualize an 'mtdi_distribution' object
In precautionary: Safety Diagnostics for Dose-Escalation Trial Designs

Visualize an mtdi_distribution object

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

`x`	An `mtdi_distribution` object
`y`	Included for compatibility with generic signature
`...`	Additional arguments passed onward to `plot`

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