ball.model <- lm(time ~ height, BallDrop) msummary(ball.model) gf_lm(time ~ height, data = BallDrop) %>% gf_point() plot(ball.model, w = 1)
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.