An Exponentially Weighted Covariance Matrix in R