Nothing
ball.modelT <- lm(time ~ sqrt(height), data = BallDrop)
msummary(ball.modelT)
gf_point(time ~ height, data = BallDrop) %>%
gf_lm(formula = y ~ sqrt(x), interval = "prediction",
fill = "skyblue") %>%
gf_lm(formula = y ~ sqrt(x), interval = "confidence")
plot(ball.modelT, w = 1)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.