weighted.sd function

Weighted standard deviation