| Ave.Ex | R Documentation | 
Average exponential tests of Andrews and Ploberger (1996)
Ave.Ex(y)
| y | financial return time series | 
|  Ex.LM  | LM test | 
|  Ex.LR  | LR test | 
Traslated from Choi's Gauss codes
Jae H. Kim
Choi, I. 1999, Testing the random walk hypothesis for real exchange rates, Journal of Applied Econometrics, 14, 293-308.
data(exrates)
y <- exrates$ca                      
nob <- length(y)
r <- log(y[2:nob])-log(y[1:(nob-1)])   
Ave.Ex(r)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.