tests/testthat/test-visualizations.R

In mixpoissonreg: Mixed Poisson Regression for Overdispersed Count Data

set.seed(33333)

fit_ml1env <- suppressWarnings(mixpoissonregML(daysabs ~ prog + math, data = Attendance, envelope = 10,
                                             optim_controls = list(maxit=1)))

fit_ml1 <- mixpoissonregML(daysabs ~ math, data = Attendance,
                           optim_controls = list(maxit=1))

plot(fit_ml1, which = 1:6)

autoplot(fit_ml1, nrow = 2)


autoplot(fit_ml1, which = 1:6)

expect_warning(local_influence_plot(fit_ml1, which = 1:5))

expect_warning(local_influence_plot(fit_ml1, which = 1:5, direction = "max.eigen"))

local_influence_plot(fit_ml1, which = 2)

expect_warning(local_influence_autoplot(fit_ml1, which = 1:5))

expect_warning(local_influence_autoplot(fit_ml1, which = 1:5, direction = "max.eigen"))

expect_warning(local_influence_autoplot(fit_ml1, which = 2))

expect_warning(local_influence_autoplot(fit_ml1, nrow = 2))



plot(fit_ml1env)

plot(fit_ml1env, which = 2)

autoplot(fit_ml1env, which = 2)