fix rating with RModel