\begin{Schunk}
\begin{Sinput}
 x <- 0:7
 xpois <- dpois(x, lambda = 1.5)
 plot(x, xpois, type = "h", ylim = c(0,1))
 points(x, xpois)
 title("Expected Value: 1.5")
\end{Sinput}
\end{Schunk}
