data(cbpp)
cbpp$trials <- cbpp$size - cbpp$incidence
dat <<- cbpp
m <- glm(cbind(incidence, trials) ~ period, data = dat, family = binomial)
head(get_response(m))
get_response(m, select = "incidence")
data(mtcars)
m <- lm(mpg ~ wt + cyl + vs, data = mtcars)
get_response(m)
Run the code above in your browser using DataLab