Update sampling.pgls.R