Create getpcse function.R