这个涉及火车 function 的 R 代码在哪里出错？

Question

我是 R 的初学者，我不知道为什么会得到以下信息：

Error in `[.data.frame`(data, , all.vars(Terms), drop = FALSE) : 
  undefined columns selected

代码如下：

banknote=read.csv('banknote.csv', header = F)
head(banknote)
library(naivebayes)
library(caret)
library(pROC)
library(ROCR)
library(MASS)
attach(banknote)
class=as.factor(banknote[,5])
class
data=banknote[,1:4]
data
nb=train(class~., method='naive_bayes',data=banknote[,1:4], trControl=trainControl(method="LOOCV"),preProcess=c("center","scale"))


> nb=train(class~., method='naive_bayes',data=banknote[,1:4], trControl=trainControl(method="LOOCV"),preProcess=c("center","scale"))
Error in `[.data.frame`(data, , all.vars(Terms), drop = FALSE) : 
  undefined columns selected

钞票文件如下所示：

3.6216,8.6661,-2.8073,-0.44699,0
4.5459,8.1674,-2.4586,-1.4621,0
3.866,-2.6383,1.9242,0.10645,0
3.4566,9.5228,-4.0112,-3.5944,0
0.32924,-4.4552,4.5718,-0.9888,0
4.3684,9.6718,-3.9606,-3.1625,0
3.5912,3.0129,0.72888,0.56421,0

谢谢您的帮助。

Answer 1

这能解决问题吗？

data14 = banknote[,1:4]
data14
nb = train(class~., method='naive_bayes', data=data14, trControl=trainControl(method="LOOCV"), preProcess=c("center","scale"))