data-raw/process_data_sets.R

In aloy/modernregressiondata: Data Sets for "A Modern Approach to Regression with R"

# Source of data files: http://www.stat.tamu.edu/~sheather/book/data_sets.php

library(dplyr)
library(tidyr)

# AdRevenue ----------------------------------------------------------------
AdRevenue <- read.csv(file="data-raw/AdRevenue.csv", header=TRUE)
AdRevenue <- separate(AdRevenue, col = PARENT.COMPANY..SUBSIDIARY,
                      into = c("ParentCompany", "Subsidiary"), sep = ",")
devtools::use_data(AdRevenue, overwrite = TRUE)

# airfares ----------------------------------------------------------------
airfares <- read.table(file="data-raw/airfares.txt", header=TRUE)
devtools::use_data(airfares, overwrite = TRUE)

# ais ----------------------------------------------------------------
ais <- read.table(file="data-raw/ais.txt", header=TRUE)
devtools::use_data(ais, overwrite = TRUE)

# anscombe omitted because available in datasets package

# banknote ----------------------------------------------------------------
banknote <- read.table(file="data-raw/banknote.txt", header=TRUE)
devtools::use_data(banknote, overwrite = TRUE)

# bayarea ----------------------------------------------------------------
bayarea <- read.table(file="data-raw/bayarea.txt", header=TRUE)
devtools::use_data(bayarea, overwrite = TRUE)

# bayarea ----------------------------------------------------------------
bimodal <- read.table(file="data-raw/bimodal.txt", header=TRUE)
devtools::use_data(bimodal, overwrite = TRUE)

# bonds ----------------------------------------------------------------
bonds <- read.table(file="data-raw/bonds.txt", header=TRUE)
devtools::use_data(bonds, overwrite = TRUE)

# bookstore ----------------------------------------------------------------
bookstore <- read.table(file="data-raw/bookstore.txt", header=TRUE)
devtools::use_data(bookstore, overwrite = TRUE)

# Bordeaux ----------------------------------------------------------------
Bordeaux <- read.csv(file="data-raw/Bordeaux.csv", as.is = TRUE)
devtools::use_data(Bordeaux, overwrite = TRUE)