各位好，小弟最近在用R语言做贝叶斯网络，训练集训练出来的模型效果不错，但是放到测试集上就不行了。经过分析之后，我认为是由于训练集和测试集存在较大差异导致的，上网看了很多论文知道可以使用EM算法更新参数，求教有没有现成R包可以做到，或者E步骤和M步骤该怎么自己编程呢?