- 973 名前：１３２人目の素数さん mailto:sage [2020/09/06(日) 09:27:29 ID: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
