EWMA.cov: exponential weighted covariance estimate Is there an R implementation for this splus fucntion?