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