inst/examples/four_minutes/fit_model.R

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")

Try the makeit package in your browser

Any scripts or data that you put into this service are public.

makeit documentation built on April 11, 2025, 5:38 p.m.