x <- 1:1000
y <- runif(1000, 1, 5)
z <- runif(1000, 1, 5)
plot(x, runningratio(x, y, z, window=5), type="l", lwd=2)
lines(x, runningratio(x, y, z, window=50), lwd=2, col=crayons("Blue"))
lines(x, runningratio(x, y, z, window=100), lwd=2, col=crayons("Red"))
Run the code above in your browser using DataLab