powered by
ar1_to_wv(phi, sig2, tau)
double
vec
x.sim = gen_ar1( N = 10000, phi = 0.9, sigma2 = 4 ) ntau = floor(log(length(x.sim),2)) tau = 2^(1:ntau) wv.theo = ar1_to_wv(phi = 0.9, sig2 = 16, tau) plot(tau, wv.theo, col = "red")
Run the code above in your browser using DataLab