\begin{Schunk}
\begin{Sinput}
 x <- seq(0.001, 7, length = 400)
 y <- dgamma(x, 1.2, scale = 0.7)
 plot(x, y, type = "l", lty = 4, xlab = "Mean of Dog Escapes", ylab = "Distribution of Average Dog Escapes", 
      )
\end{Sinput}
\end{Schunk}
