predict.RprobitB_fit function

Predict choices