Nothing
library(dplyr)
fit_model <- function(data) {
lm(Ozone ~ Temp, data) %>%
coefficients()
}
dir.create("output", showWarnings=FALSE)
dat <- read.csv("data/data.csv")
coefs <- fit_model(dat)
write(coefs, "output/coefs.dat")
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.