Forecasting Time Series
Coca-Cola Revenue Analysis
Patrick Perry
March 21, 2017
Preample
library("forecast")Coke Revenue
Coca-Cola Net Revenue, Quarterly, 1994-2009.
data <- read.csv("http://ptrckprry.com/course/forecasting/data/cokerev.csv")
date <- as.Date(data$date)
time <- 1:length(date)
revenue <- data$revenueTime Series Plots
plot(date, revenue, type="l", col=2)
ACF, PACF
Original Series
par(mfrow=c(1,2))
Acf(revenue)
Pacf(revenue)
First Difference
par(mfrow=c(1,2))
Acf(diff(revenue))
Pacf(diff(revenue))