bws.sp function

Calculating shares of preference