Create pidec.r