# NOT RUN {
data(TenMileRace)
if (require(ggformula)) {
gf_point(net ~ age | sex, data = TenMileRace, color = ~sex, alpha = 0.1) %>%
gf_density2d(color = "gray40")
lm(net ~ age + sex, data = TenMileRace)
}
# }
Run the code above in your browser using DataLab