data-raw/PTSF-Datasets/amtrak.R

In speegled/tswrdata: Data for use with the book, Time Series with R, by Darrin Speegle.

dd <- readxl::read_xls("data-raw/PTSF-Datasets/AmtrakPassengersMonthly T-Competition.xls")
library(lubridate)
library(tidyverse)
dd$Month <- ymd(dd$Month)
dd <- select(dd, -matches("log|tra"))
dd <- dd %>% janitor::clean_names()
amtrak <- dd
save(amtrak, file = "data/amtrak.rda")