R/plot.histWithDist_function.R

#' @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)
}
hutchisonjtw/JNCCTools documentation built on May 17, 2019, 9:14 p.m.