P-value From Z-Score Function in R