## Rolling Analysis:
x = (1:10)^2
x
trim = c(TRUE, TRUE, FALSE, FALSE)
na.rm = c(TRUE, FALSE, TRUE, FALSE)
for (i in 1:4)
print(rollMin(x, 5, trim[i], na.rm[i]))
for (i in 1:4)
print(rollMax(x, 5, trim[i], na.rm[i]))
for (i in 1:4)
print(rollVar(x, 5, trim[i], unbiased = TRUE, na.rm[i]))
for (i in 1:4)
print(rollVar(x, 5, trim[i], unbiased = FALSE, na.rm[i]))
Run the code above in your browser using DataLab