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)
}
dgabris/insuRglm documentation built on Jan. 13, 2023, 11:23 a.m.