prob包似乎误判了条件概率？

Question

我的数据集是

 Q1 Q2 Q3 Q4 

  1  1  0  0  
  0  0  0  0  
  0  1  0  1  
  0  1  0  1  

我想计算prob(Q2=1，给定q4=1)，根据我的知识，它应该是1。但是当我在R中使用following命令时

prob(a,q2==1,q4==1)返回0.5

第二个问题是如果我将数据集更改为

  Q1 Q2 Q3 Q4 
  1  1  0  0 
  1  0  1  0 
  0  1  0  1 
  1  1  1  1 

当我使用上面的数据并计算上面的概率时，它返回1。当我不改变Q2和Q4时，概率怎么会改变。
我的想法是，在这两种情况下，概率应该是相同的1。

为什么它只是随着其他参数Q1和q3的变化而变化。我认为它应该改变，因为P(q2=1/q4=1)独立于Q1和q3。

Answer 1

问题是prob使用intersect，它排除了重复项。因此，它执行的计算是sum(intersect(A,B)$probs)/sum(B$probs)，即0.25/0.5=0.5。

如果您想要正确的计算，您必须使用排他性概率，如下所示（第3行的概率为50%）：

a <-read.table(text="Q1 Q2 Q3 Q4
  1  1  0  0
  0  0  0  0
  0  1  0  1",header=TRUE,stringsAsFactors=FALSE)
a$probs <-c(0.25,0.25,0.5)

Prob(a,event=Q2==1,given=Q4==1)
[1] 1

至于第二个问题，prob工作正常，因为intersect没有删除重复项，因为第3行和第4行不同。