I am trying to fit a negative binomial distribution, in R
, to my over dispersed data (out of 20 ,14 samples are 0, and rest are less than 5). The mean is $-0.8$ and the variance is $2.69$.
The problem is if I use the theta.md
function, I get theta around $0.5$, and if I use glm.nb
, then I get theta as $.25$. Any idea why the difference is so large?
My data are: 4 1 1 6 3 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0
Thanks for the help.