Create correctPMF.R