Nothing
library(tidyverse)
library(rms)
starwars %>%
mutate(bmi = mass / ((height / 100) ^ 2)) %>%
select(bmi, gender) -> starwars
dd <- datadist(starwars)
options(datadist = "dd")
mod <- ols(bmi ~ gender, data = starwars) %>%
summary()
plot(mod)
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.