r - 朴素贝叶斯实现

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
}