20/09/06 09:27:29 tN16f4S+.net
> # 分位数でのＣＩ
> qnbinom(0.025,17,0.0833)+17 ; qnbinom(0.975,17,0.0833)+17
[1] 123
[1] 307
> # Highest Probability Density IntervalでのＣＩ
> HDInterval::hdi(qnbinom,size=17,prob=0.0833)+17
lower upper
115 297
attr(,"credMass")
[1] 0.95