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