.runThisTest <- Sys.getenv("RunAllinsightTests") == "yes"
if (.runThisTest && requiet("insight")) {
data(mtcars)
m <- glm(am ~ mpg, mtcars, family = binomial())
test_that("find_random", {
expect_null(find_random(m))
})
}
Generated by dwww version 1.15 on Thu May 23 02:11:14 CEST 2024.