基于R语言的贝叶斯判别，程序运行没错，但是就没有结果

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

程序如下：
data <- read.csv("E://jue//logistic.csv",header=T)
ind <- sample(2, nrow(data), replace=TRUE, prob=c(0.8, 0.2))
traindata <- data[ind==1,]
testdata<- data[ind==2,]

library(MASS)
library(klaR)

res<-naiveBayes(id~a+b+c+d+e+f+g+h+j+k+l+m+n+o+p+q+r+s+t+u+v+w+x+y+z+aa+ab+ac+ad+ae+af+ag+ah+ai+aj+ak+al+am+an+ao+ap+aq+ar+as,
                 traindata)
pre<-predict(res,testdata)

table(pre,testdata$id)
write.csv(pre,"E://predictdata16.csv")

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：贝叶斯判别 贝叶斯 R语言 Data 程序