R/leverage_plots.R

Defines functions leverage_plots

leverage_plots <- function(glm) {
  pdf(NULL)
  dev.control(displaylist="enable")

  plot(glm, which = 4)
  first <- recordPlot()

  plot.new()

  plot(glm, which = 5)
  second <- recordPlot()

  dev.off()

  list(first, second)
}
realgabon/insuRglm documentation built on Jan. 2, 2023, 2:51 a.m.