# Example usage of running_quantile
set.seed(123)
data <- cumsum(rnorm(50))
result <- running_quantile(data, .window = 3, .probs = 0.5)
print(result)
plot(data, type = "l")
lines(result, col = "red")
Run the code above in your browser using DataLab