mean_bs function

Bayes-Stein shrinkage estimator of the mean vector