零膨胀负二项模型（ZINB）
mod <- zeroinfl(ReportedNumber~ A+B+C+D+E | F+G+H+I, data = zinb, dist = "negbin", EM = TRUE)
ZINB模型由点模型和零膨胀模型两部分结合而成，ABCDE是点模型内变量， 影响因变量发生次数的多少，FGHI是零膨胀模型内变量，决定因变量是否能够发生（为0还是非0）。
http://www.ats.ucla.edu/stat/r/dae/zinbreg.htm 这个网站里讲的很清楚
对比率P啊，binom.test(x, n, p = 0.5, alternative = c(“two.sided”,“less”,“greater”),conf.level= 0.95)x为具有特征样本数，n为样本总数，p为检验的比率；
例子：
有一批蔬菜种子的平均发芽率p0=0.85，现随即抽取500粒，用种衣剂进行浸种处理，结果有445粒发芽。试检验种衣剂对种子发芽率有无效果。
解：根据题意，所检验的问题为
H0：p=p0=0.85， H1：p≠p0
可以用R语言的binom.test
代码：binom.test(445,500,p=0.85)
