
my.acf(x)
my.ccf(a, b)
data(ibm)
ibm.returns <- diff(log(ibm))
plot(1:length(ibm.returns) - 1, my.acf(ibm.returns), type="h",
xlab="lag", ylab="ACVS", main="Autocovariance Sequence for IBM Returns")
Run the code above in your browser using DataLab