Calculate P-value for Linear Mixed Model in R

The lme4 R package is a powerful tool for fitting mixed models in R where you can specify fixed and random effects.  One oddity about the program is it returns t statistics, but no p-value.  To get the p-value takes a little extra coding.  Here is a quick example for fitting a linear mixed model in R (using lmer) and then the added code to calculate p-values from the t statistic.  Either p1 or p2 are acceptable p-values to use.