基于贝叶斯网络的R预测

基于贝叶斯网络的R预测,r,prediction,naivebayes,R,Prediction,Naivebayes,我想使用贝叶斯分类找到ali的类值(öksürük=var,ateş=yok,halsizlik=var)。下面的代码正在运行,但我得到 警告信息: 1:naive_bayes():特征Öksürük-存在零概率。考虑拉普拉斯平滑。 2:naive_bayes():特征Ateş-存在零概率。考虑拉普拉斯平滑. < /P> 3:naive_bayes():特征Halsizlik-存在零概率。考虑拉普拉斯平滑。 Öksürük<-c("Var","Yok","Yok","Yok","Var",

我想使用贝叶斯分类找到ali的类值(öksürük=var,ateş=yok,halsizlik=var)。下面的代码正在运行,但我得到

警告信息:

1:naive_bayes():特征Öksürük-存在零概率。考虑拉普拉斯平滑。 2:naive_bayes():特征Ateş-存在零概率。考虑拉普拉斯平滑. < /P> 3:naive_bayes():特征Halsizlik-存在零概率。考虑拉普拉斯平滑。
Öksürük<-c("Var","Yok","Yok","Yok","Var","Yok","Yok","Yok","Var","Yok","Var")
Ateş<-c("Var","Var","Yok","Yok","Yok","Var","Yok","Var","Var","Var","Yok")
Halsizlik<-c("Yok","Var","Yok","Var","Yok","Yok","Var","Var","Yok","Var","Var")
COVID19<-c("POZİTİF","POZİTİF","POZİTİF","POZİTİF","NEGATİF","NEGATİF","NEGATİF","NEGATİF","NEGATİF","NEGATİF","")
df<-data.frame("Öksürük"=Öksürük,"Ateş"=Ateş,"Halsizlik"=Halsizlik,"COVID-19"=COVID19)     
nbfit<-naivebayes::naive_bayes(df[1:10,1:3],df[1:10,4])
ali<-predict(nbfit,df[11,1:3])

Öksürük我确实重现了错误,似乎
COVID19
中的最后一个值是空的:

COVID19<-c("POZİTİF","POZİTİF","POZİTİF","POZİTİF","NEGATİF","NEGATİF","NEGATİF","NEGATİF","NEGATİF","NEGATİF","")

COVID19I无法重现该错误。发布数据后,代码给出的
ali
等于
[1]否定F
,级别为
否定F POZİTİF
COVID19<-c("POZİTİF","POZİTİF","POZİTİF","POZİTİF","NEGATİF","NEGATİF","NEGATİF","NEGATİF","NEGATİF","NEGATİF","NEGATİF")