\begin{Schunk}
\begin{Sinput}
 x7 <- seq(0, 100)
 xprob7 <- dnbinom(x7, size = 50, prob = 0.5)
 plot(xprob7, type="s")
\end{Sinput}
\end{Schunk}
