R-消息中贝叶斯网络的预测：考虑使用α和X27；平滑'；论点

我已经计算出代码来预测目标节点每一类的概率。但是，当我尝试将其适配到不同的数据集（只是更多类似类型数据的节点）时，当我尝试运行predict函数时，它会给出以下消息（黑色文本，不像错误或警告那样为红色）：

第25行的证据在当时的概率小于0.00000 模型考虑在构建网络时使用“平滑”参数。 退出

代码如下：

library("bnlearn")
pigment.test <- read.table("pigment_test.csv", sep=",", header=T)
bn.mle <- bn.fit(dg_pigment, data=pigment.test[,2:19], method="mle", smooth=0.01)
bn.grain <- as.grain(bn.mle)
predict.mle <- predict(bn.grain, "pigment", newdata=pigment_val[,2:18], 
                       type="distribution")
predict.mle

library（“bnlearn”）
测试
grain（）
函数有一个
smooth
参数当我尝试向上面的grain函数添加smooth时，它说这是一个未使用的参数。你把它设为什么？我见过“e”，但我不知道它在.grain

、function

grain

（来自package

grain

）中不是什么意思；smooth=0.01-0.1我如何将其融入上述代码中，以便仍然可以使用predict（）函数？我尝试

编译
as.grain
网络并添加
smooth
，但它更改了模型中的弧，并且仍然给出相同的消息。还有其他方法吗？
grain（）
函数有一个
smooth
参数当我尝试向上面的grain函数添加smooth时，它说这是一个未使用的参数。你把它设为什么？我见过“e”，但我不知道它在.grain

、function

grain

（来自package

grain

）中不是什么意思；smooth=0.01-0.1我如何将其融入上述代码中，以便仍然可以使用predict（）函数？我尝试

编译
as.grain
网络并添加
smooth
，但它更改了模型中的弧，并且仍然给出相同的消息。还有别的办法吗？