C1<-train_data[,m] C2<-as.factor(C1) class_values<-C2 train_data <- train_data[,-m] control <- trainControl(method="repeatedcv", number=5, repeats=1) train_model <-train(train_data,class_values,method='nb',trControl=control)
我试着把:C2=as。因子(作为数值(作为字符(C1)),但未求解。 C1是从1到5的数字数据。
对于舍入:您应该:
df <- data.frame(a = factor(c(1.1,2.2,3.3))) df$b = round(as.numeric(levels(df$a)[df$a]))
或使用数据。表格框架:
require(data.table) setDT(df) df[, b:= round(as.numeric(levels(a)[a]))]
之后,我们需要看看你的函数中有什么,才能知道出了什么问题。。。