d<-read.csv("http://canisius.edu/~yany/data/ibmDaily.csv",header=T)
n<-nrow(d)
p<-d[,6]
ret<-p[2:n]/p[1:(n-1)]-1
cor(ret[2:(n-1)],ret[1:(n-2)])
