Update getESFromP.R