\begin{Schunk}
\begin{Sinput}
 x <- 50:100
 y <- (dnorm(x, m = 70, sd = 5) + dnorm(x, m = 90, sd = 7))/2
 plot(x, y, type = "l", lty = 4, xlab = "Test Scores", ylab = "Chance of Observing Each Score")
\end{Sinput}
\end{Schunk}
