### ideal behaviour
lm(rnorm(10) ~ rep(0, 10))
glm(rpois(10, 10) ~ rep(0, 10), family="poisson")
rigr::regress("rate",
formula = rpois(10, 10) ~ rep(0, 10) + rnorm(10),
data=df)
rigr::regress("mean",
formula = rpois(10, 10) ~ rep(0, 10) + rnorm(10),
data=df)
### error with unhelpful error message
rigr::regress("rate",
formula = rpois(10, 10) ~ rep(0, 10),
data=df)
rigr::regress("mean",
formula = rpois(10, 10) ~ rep(0, 10),
data=df)