# NOT RUN {
bb <- lmBy(1 / uptake ~ log(conc) | Treatment, data=CO2)
coef(bb)
fitted(bb)
residuals(bb)
summary(bb)
coef(summary(bb))
coef(summary(bb), simplify=TRUE)
## A more modern alternative based on tidyverse end broom
if (require(tidyverse) && require(broom)){
gg <- CO2 %>% group_by(Treatment)
gg %>% do(broom::tidy(lm(1 / uptake ~ log(conc), data=.)))
}
# }
Run the code above in your browser using DataLab