Programa em R para o CIR-PAP