Question

一个骨灰盒包含10个球，其中3个是白色，4个是蓝色，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)

在计算绘制三个蓝色球的概率时，我得到了正确答案。

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

但是，在尝试计算绘制两个白球和一个黑球或每种颜色的一个球的概率时，我得到一个返回的答案为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。如果它适用于第一种情况，为什么不使用第二种和第三种情况，因为所有三种都应该具有相同的代码

Answer 1

您希望能够指定特定颜色在结果中显示的次数。

请记住，我们在某种程度上受到您设置的样本大小的限制，即3.我们可以使用{{1}以易于阅读的格式查看3种颜色的可能组合列表及其概率}：

$images = array(
'1' => 'images/sample1.jpg',
'2' => 'images/sample2.jpg',
'3' => 'images/sample3.jpg',
'4' => 'images/sample4.jpg',
'5' => 'images/sample5.jpg'
);
$key = $_GET['key'];
$next = $key + 1;
$prev = $key - 1;

noorder

所以从那张桌子上你可以看到有3＆＃34; Ash Grey＆＃34;例如球是0.008333333。

如果我们想找到2＆＃34; Ghost White＆＃34;示例中的球：

noorder(N)

[1] 0.1833333

我们可以使用上表验证此答案：

            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

[1] 0.1833333

让我们更大一些样本量并进行更多实验。

Q <- noorder(N)

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

样本大小为7的概率为2＆＃34; Ash Grey＆＃34;和1＆＃34;鬼白＆＃34;是：

> 0.100000000+0.008333333+0.075000000

[1] 0.8083333

和3＆＃34; Ash Grey＆＃34;和2＆＃34;鬼白＆＃34;是：

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

[1] 0.1833333

urnsample的概率为0？

1 个答案: