mean_js function

James-Stein shrinkage estimator of the mean vector