\begin{Schunk}
\begin{Sinput}
  x <- rtweedie(1000, xi = 1, mu = 20, phi = 1)
  table(x)
\end{Sinput}
\begin{Soutput}
x
  6   8   9  10  11  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26  27  28  29  30  31  32  33  35 
  1   1   3  10  11  18  24  41  58  75  67  86  88 105  83  68  53  50  42  39  28  21   5   4  11   6   1   1 
\end{Soutput}
\end{Schunk}
