Update pnorm.R