\begin{Schunk}
\begin{Sinput}
     m= -7.1; sd=11
     xrange <- c(m-4*sd, m+4*sd)
     xseq <- seq(xrange[1], xrange[2], length.out = 100)
     pxseq <- pnorm(xseq, m = m, sd = sd)
     plot(pxseq ~ xseq, type="l", ylim = c(-0.1,1.1), xlab = "x", ylab = paste("pnorm(x, m=",m,",","sd=",sd,")"), main = bquote("CDF of Normal"(.(m) * "," * .(sd)^2)))
\end{Sinput}
\end{Schunk}
