\begin{Schunk}
\begin{Sinput}
  x <- rtweedie(1000, xi= 3, mu = 50, phi = 1)
  ##x <- rtweedie(10, xi= 3, mu = 50, phi = 1)
\end{Sinput}
\end{Schunk}
