BNlearn，有关贝叶斯网络的证据证据

Question

我正在尝试使数据记录属于以贝叶斯网络为特征的数据集的可能性。

这是我当前的简单代码：

library(bnlearn)
library(gRain)
dag = hc(learning.test)
fitted.bnlearn = bn.fit(dag, learning.test, method = "bayes", iss=1)
fitted.grain = as.grain(fitted.bnlearn)
retractEvidence(fitted.grain)
evidence_probability <- setEvidence(fitted.grain, c("A","B", "C", "D", "E", "F"), c("Z", "Z", "Z", "Z", "Z", "Z"))
evidence_probability
pEvidence(evidence_probability)

此输出：

> pEvidence(evidence_probability)
[1] 1

绝对不是我所期望的。我期望的是，通过使用平滑（iss = 1），它应该输出很小的概率，但不会为空。

肯定是我不了解的东西（所有6个变量在“ learning.test”训练数据集中只有a，b或c值）。