library("forecast")
CISDM Equal Weighted Hedge Fund Index NAV, Monthly, 1990 - Present
# Remove earlier time points
data <- read.csv("http://ptrckprry.com/course/forecasting/data/hedge.csv")
data$date <- as.Date(data$date)
data <- subset(data, date >= "1990-01-01")
# Extract returns
hedge <- data$return
n <- length(hedge)
time <- 1:n
plot(time, hedge, type="l", col=2)
Original Series
par(mfrow=c(1,2))
Acf(hedge)
Pacf(hedge)
First Difference
par(mfrow=c(1,2))
Acf(diff(hedge))
Pacf(diff(hedge))