Create getESFromP.R