歪分布の高密度間隔

Question

歪んだ分布の「2種類の90％信用できる限度」の検索方法が不思議でした。特に

、私が必要：信頼限界を形成する2つの点の

1-ハイツUNEQUALことが、それらの尾下AREAがあることがEQUAL（タイプ1 、信頼限界を形成する2つの点の

2-ハイツEQUALなるように、通常の90％CI）、それらの尾下AREA残念なことに

N <- seq(from=100,to=2000,by=1) 
P <- choose(N-100,50)/choose(N,60) 

## Normalize Ps to make the total area under the curve become 1: 
sum(P) 
P <- P/sum(P) 
plot(N,P,type="l") 

Answer 1

quantile(P, c(0.10, 0.90)) 

library(coda) 
    HPDinterval(mcmc(P), 0.90)