library("forecast")
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$revenue
plot(date, revenue, type="l", col=2)
Original Series
par(mfrow=c(1,2))
Acf(revenue)
Pacf(revenue)
First Difference
par(mfrow=c(1,2))
Acf(diff(revenue))
Pacf(diff(revenue))