powered by
decomp_to_theo_wv(decomp)
mat
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