\begin{Schunk}
\begin{Sinput}
 shadedArea <- round(pnorm(mu + 1.96 * sigma, mean = mu, sd = sigma, lower.tail = F),4)
 ### Insert simpler comment on right side.
 
 al2 <- bquote(phantom(0) == 1 - F( .(criticalValue) ))
 al3 <- bquote(phantom(0) == .(round(shadedArea,3)))
\end{Sinput}
\end{Schunk}
