R Code PBL Revenue