raw-data/Untitled.R

In jmsallan/BAdatasets: Datasets for a Business Analytics Course

library(readr)
library(janitor)

hlr <- read_csv("raw-data/hierarchicalRegressionData.csv")

save(hlr, file = "data/hlr.RData")

insurance_charges <- read_csv("raw-data/insurance.csv")
save(insurance_charges, file = "data/insurance_charges.RData")

red <- read_csv2("raw-data/winequality-red.csv") |>
  clean_names()

red <- red |>
  mutate(across(c(volatile_acidity, citric_acid, chlorides, density, sulphates), ~ as.numeric(.)))

white <- read_csv2("raw-data/winequality-white.csv") |>
  clean_names()

white <- white |>
  mutate(across(c(volatile_acidity, citric_acid, residual_sugar, chlorides, density, sulphates), ~ as.numeric(.)))

wine_quality <- list(red = red, white = white)
save(wine_quality, file = "data/wine_quality.RData")