如何交叉验证朴素贝叶斯分类器?

How to cross validate a Naive Bayes classifier?

我使用 e1071 进行朴素分类

函数

naiveBayes(x=, y=, )

我想使用 cvTools 进行交叉验证

cvFit(....)

这怎么写,cvFit的文档对我来说真的很难看懂

typeof(naiveBayes) is 'closure'

我认为开始使用 caret 包要好得多。例如这是我目前正在处理的部分代码:

    library('caret')

    train_control <- trainControl(method="cv", number=10)

    #create model
    fit <- train(trainData[, -classIndex], trainData[, classIndex], method = "nb",trControl=train_control)