朴素贝叶斯的实施

Question

在我的项目中，我使用了“e1071”库中的朴素贝叶斯实现，时间执行相当大。然后，我使用了来自“nblearn”的朴素贝叶斯实现，结果非常相似，但执行时间有时要小近10倍！

有人注意到了吗？可能是什么原因？

testNaiveBayes <-function(formula, trainingData, testData)
{
    model <- naiveBayes(formula, trainingData)
    pred <- predict(model, testData)
    result <- calcRatesFor(formula, testData, pred ) 
    result
}

testNB <-function(formula, trainingData, testData)
{
    cl <- toString(formula[[2]])
    model <- naive.bayes(trainingData, cl)
    pred <- predict(model, testData)
    result <- calcRatesFor(formula, testData, pred ) 
    result
}