title: Fitting Zero Truncated Poisson Distribution
body: <p>I have the following data:</p>
  <pre class="lang-r prettyprint-override"><code>data=  c(0,1,0,11,2,0,3,0,0,2, 1,3,1, 0,1,0,0,0,2,3,0,0,0,8,1,1,1,0,1,1,
  2,7,0,0,0,5,2,3,  6,  1,  1,  5 , 2 , 9 , 0,  0,  1,  21, 16,  2,  9,  6, 
  25,  2,  1, 12, 16, 14, 15, 15, 6,  1 ,12 ,12, 13 , 5  ,5 , 6 , 4 , 7 ,11 , 
  8 , 4 , 5 , 8,  3 , 8 , 4 , 7 , 4 , 7 , 2 , 5,  6 , 4 , 5 , 1 , 0,  8 , 5,  6 ,
  8 , 9,  8, 9 , 7 , 7 , 9 , 8 , 9  ,4  ,4 , 7 ,13 , 9 ,13 ,12, 10 , 9 , 8,  7, 11,  
  5 , 5 , 0,  1, 33 , 4 ,22, 19, 22,  9 , 5,4 ,17 , 7 , 7 , 4,  5,  3 , 0 , 0 , 9,  
  3,  0 , 0 ,36 ,40,  5 , 4,  0, 11 , 0  ,7  ,5 ,25, 39, 26 , 4 ,20, 12,  4, 17 , 3, 22,
  12 ,14 , 8 , 9, 11,  7 ,11, 10 , 9 ,16,  6, 24,  8 , 5 , 6, 14 , 3  ,9 , 4,  1 ,20 , 0 ,
  1 , 7  ,9  ,0 ,12,  2, 29 ,56, 16 , 8 ,28,0 ,19, 25 ,35, 87, 56, 66, 60 ,58, 14, 10 ,12, 
  13 ,13 ,34, 26, 18 ,13, 22, 13 ,12 ,15 ,41 ,11 ,11 ,11 , 5 , 6,  7 , 8 , 8 ,17, 16,
  12, 21, 38 ,34 ,10 ,77 ,41 , 7 ,12 , 1, 16, 20,  8 , 5, 2, 20 , 7 ,16, 12 , 6, 10, 31, 12)
  </code></pre>
  <p>I have used the fitdistrplus package to fit this data using poisson distribution.</p>
  <pre class="lang-r prettyprint-override"><code>x=fitdist(data,&quot;pois&quot;)
  </code></pre>
  <p>Once I use the plot function on x:</p>
  <pre class="lang-r prettyprint-override"><code>plot(x)
  </code></pre>
  <p>Two side-by-side plots are constructed by default. One has an empirical and theoretical distribution graph and another has CDF.</p>
  <p><strong>The data set has (29/244)=12% zero values thus My concern here is I want to fit the data using Zero Truncated Poisson distribution and want to have the same type of graph that is produced using fitdistrplus package [ as I mentioned in earlier part: plot(x) ]</strong></p>
  <p><strong>Any help is appreciated. Thanks</strong></p>