# 2.43 The Zurich Bank data

zurich <- read.table("zurich.txt")
temp <- data.matrix(zurich) # Start making a ts object
temp <- t(temp)
zurich <- ts(temp[1:length(temp)]) # End making a ts object
plot(zurich)
dif.zurich <- diff(zurich)
plot(dif.zurich)
dif.zurich.sq <- dif.zurich^2
plot(dif.zurich.sq)
acf(dif.zurich.sq)