Update pvalue.QHS.R