Create ewma.R

Exponentially Weighted Moving Average