Create PPT_RB.R