weighted.sma function

Weighted Simple Moving Average