urnsampleの確率は0ですか？

Question

壷には10個のボールがあり、3個は白、4個は青、3個は黒です。 3つのボールが壷からランダムに描かれます。私は次のコードを使ってこれをサンプル空間に割り当てます：

require(prob) 
L<-rep(c("White","Blue","Black"),times=c(3,4,3)) 
M<-urnsamples(L,size=3,replace=FALSE, ordered=FALSE) 
N<-probspace(M) 

3つの青いボールを描く確率を計算している間、私は正解を得ます。

> Prob(N,isin(N,c("White","Black"))) 
[1] 0.45 

しかし、2個の白いボールと1つの黒のボール、または各色の1つのボールのために描画するための確率を計算しようとしている間、私は0として返さ答えを得る：

> Prob(N,isrep(N,"White","Blue","Black",1,1,1)) 
[1] 0 
> Prob(N,isrep(N,"White","Black",2,1)) 
[1] 0 

がありますコードに何か問題がありますか？理論的には、答えはそれぞれ0.3と0.75です。 3つ目のコードに同じコードが必要なため、2番目と3番目のコードを使用しないでください。

Answer 1

結果に特定の色が表示される回数を指定できます。

私たちはあなたが設定したサンプルサイズによって3に制限されていることに注意してください。noorder：

を使用して、3色の可能な組み合わせのリストとその確率を読みやすい形式で見ることができます

noorder(N) 

  X1   X2   X3  probs 
1  Ash Gray Ash Gray Ash Gray 0.008333333 
2  Ash Gray Ash Gray  Blue 0.100000000 
3  Ash Gray  Blue  Blue 0.150000000 
4   Blue  Blue  Blue 0.033333333 
5  Ash Gray Ash Gray Ghost White 0.075000000 
6  Ash Gray  Blue Ghost White 0.300000000 
7   Blue  Blue Ghost White 0.150000000 
8  Ash Gray Ghost White Ghost White 0.075000000 
9   Blue Ghost White Ghost White 0.100000000 
10 Ghost White Ghost White Ghost White 0.008333333 

だから、そのテーブルから、あなたは、例えば3「アッシュグレー」ボールを持っていることの確率は0.008333333であることがわかります。

我々は、試料中の2 "ゴーストホワイト" ボールを有する確率を検索する場合：

Q <- noorder(N) 

Prob(Q,isin(Q,c("Ghost White", "Ghost White"))) 

[1] 0.1833333

我々は、テーブルを使用して、この答えを確認することができます上記：

> 0.100000000+0.008333333+0.075000000 

[1] 0.1 833333

サンプルサイズを大きくしてもう少し実験しましょう。 7のサンプルサイズ2 "アッシュグレー" の確率と1 "ゴースト・ホワイト" で

M<-urnsamples(L,size=7,replace=FALSE, ordered=FALSE) 
N<-probspace(M) 
Q <- noorder(N) 

である：

Prob(Q,isin(Q,c("Ash Gray", rep(c("Ghost White", "Ash Gray"),1)))) 

[1] 0.8083333

と3 "灰色"と2 "ゴーストホワイト"の確率は：

> Prob(Q,isin(Q,c("Ash Gray", rep(c("Ghost White", "Ash Gray"),2))) 

[1] 0。1833333