data(mtcars)
x <- glm(vs ~ wt, data = mtcars, family = "binomial")
get_family(x)
if (require("mgcv")) {
x <- mgcv::gamm(
vs ~ am + s(wt),
random = list(cyl = ~1),
data = mtcars,
family = "binomial"
)
get_family(x)
}
Run the code above in your browser using DataLab