我使用r生成了一个5*5矩阵(表1(。
# rm(list = ls())
set.seed ( 2022 )
mat <- matrix(sample(0:1,25,replace=T), ncol = 5)
rownames(mat) <- c ("R1", "R2", "R3", "R4", "R5")
colnames(mat) <- c ("A", "B", "C", "D", "E")
行表示区域，列表示区域(0/1(是否导出产品，现在我需要通过这个矩阵计算产品之间导出的条件概率(表2(，例如，在导出B的情况下，导出A[p(A|B(=p(AB(/p(B(]的概率，或在导出A的情况下导出B[p(B|A(=p。因为只有R1用于同时导出A和B，P(AB(=1[忽略分母，实际考虑同时导出A与B的区域数量]，所以有2个区域(R1、R3(用于导出A，4个用于导出B。A区域(R1，R2，R4，R5(，因此P(A|B(=1/4，P(B|A(=1/2(表3的一部分(。如图所示，这三个表格组合在一起
这项工作是计算指标的中间过程，但r对我来说是非常新的，所以现在我面临着如何编写代码来计算条件概率的问题，我希望得到你们的指导，谢谢大家。
使用condprob可以解决这个问题