\begin{Schunk}
\begin{Sinput}
 x <- seq(-3, 3, length.out = 200)
 xprob <- dnorm(x, m = 0, s = 1)
 plot(xprob ~ x, type = "n", xlab = "Domain of x", ylab = "Probability Density", main = "Normal")
 lines(xprob ~ x)
\end{Sinput}
\end{Schunk}
