#' @export
plot.histWithDist <- function(x, y, ...) {
plot(x$histogram, freq = FALSE, main = x$main)
mapply(lines, x$curves, col = 1:4)
legend("topright", x$distr, col = 1:4)
invisible(NULL)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.