x <- 1:1000
y <- runif(1000, 1, 5)
z <- runif(1000, 1, 5)
plot(x, runningratio2(x, y, z, window_denom=10), type="l", lwd=2)
lines(x, runningratio2(x, y, z, window_denom=50), lwd=2, col="blue")
lines(x, runningratio2(x, y, z, window_denom=100), lwd=2, col="red")
Run the code above in your browser using DataLab