powered by
rw_to_wv(sig2, tau)
double
vec
x.sim = cumsum(rnorm(100000)) ntau = floor(log(length(x.sim),2)) tau = 2^(1:ntau) wv.theo = rw_to_wv(1,tau) plot(tau, wv.theo, col = "red")
Run the code above in your browser using DataLab