R 将模型转换为JSON格式（不导出）

通过使用以下软件包

library(naivebayes)
library(caret) 

我创建了两个模型

#NAIVE-BAYES MODEL
model_nb <- naive_bayes(Y~., data=train1, usekernel=T)

#k-NN MODEL
control_knn <- trainControl(method="repeatedcv", repeats=5, verboseIter = show_training_details)
model_knn <- train(Y ~ ., data=train1, method="knn", trControl=control_knn, preProcess=c("center","scale"), tuneLength=max_k)

#朴素贝叶斯模型
模型