R从预测中得到成本函数值

假设您在R中创建了一个

naiveBayes

模型，那么很明显，您可以看到对任何给定输入进行预测所需的所有条件概率

但是，在我使用

predict

基于一些测试数据进行预测之后。在预测之后，我如何获得成本函数（在这种情况下为最大可能性）？y=level1/level2的成本函数是什么

我可以简单地从预测函数中得到它吗？或者我必须自己手动计算，比如：

P <- P(x1|y=level1) * P(x2|y=level1) ... P(xd|y=level1) * P(y=level1) / (Px1 * x2 .. xd)

P