Auto.VR(y)
data(exrates) y <- exrates$ca nob <- length(y) r <- log(y[2:nob])-log(y[1:(nob-1)]) Auto.VR(r)
Run the code above in your browser using DataLab