Hypergeometric Distribution

超幾何分布

適用例

ある湖の中にいる魚2000匹のうち，400匹には尾部に赤い色の標識を人為的に付けて放流されてある．

いま池から魚を10匹獲ったとき，そのうち標識が付いた魚が1匹である確率は?．0匹の場合は?．

x: サンプル中、印が付いている魚の数

m:全体で印の付いている魚の数

n:全体で印の付いていない魚の数

k:サンプル数

超幾何分布算出コマンド:dhyper(x,m,n,k)

Rコマンド

m<-400 <-印を付けた魚の数

n<-2000-m <-無印の魚の数

k<-10 <-サンプル数

x<-(0:k) <-サンプルの中で印のある魚の数

y<-dhyper(x,m,n,k) <- 確率を計算する

barplot(y) <- 確率分布を棒グラフ表示