Final PPMR Script.R