Create PPC.R