\begin{Schunk}
\begin{Sinput}
 x <- 0:10
 y <- dpois(x, lambda = 0.75)
 plot(x, y, type = "s", lty = 4, xlab = "Dog Escapes", ylab = "Chance of Observing Each Score")
\end{Sinput}
\end{Schunk}
