weighted_mean_r function

Weighted mean correlation