Расчет средневзвешенного значения и стандартного отклонения

У меня есть временной ряд x_0... x_t. Я хотел бы вычислить экспоненциально взвешенную дисперсию данных. То есть:

V = SUM{w_i*(x_i - x_bar)^2, i=1 to T} where SUM{w_i} = 1 and x_bar=SUM{w_i*x_i}

ref:http://en.wikipedia.org/wiki/Weighted_mean#Weighted_sample_variance

Цель состоит в том, чтобы в основном взвесить наблюдения, которые находятся дальше во времени, меньше. Это очень просто реализовать, но я хотел бы использовать как можно больше встроенных функций. Кто-нибудь знает, что это соответствует в R?

Спасибо