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