powered by
data(SeriesB)
r <- diff(log(SeriesB)) a <- abs(diff(log(SeriesB))) layout(c(2,1)) acf(r, main="log returns") acf(a, main="absolute log returns") #
Run the code above in your browser using DataLab