对 R 中的朴素贝叶斯的建议

问题描述

我创建了一个代码来比较两个不同政客的推文。我创建了一个包含它们的主语料库。我正在使用朴素贝叶斯方法。我不断收到相同的错误消息，但我不知道如何适应，我将在下面显示代码。任何意见，将不胜感激！谢谢

set.seed(300)

id_train <- sample(1:5000,1500,replace = FALSE)
   
head(id_train,10)
   
MasterCorpus$id_numeric <- 1:ndoc(MasterCorpus)

dfmat_training <- corpus_subset(MasterCorpus,id_numeric %in% id_train) %>%
     dfm(remove = stopwords("en"),stem = TRUE)
   
dfmat_test <- corpus_subset(MasterCorpus,!id_numeric %in% id_train) %>%
     dfm(remove = stopwords("english"),stem = TRUE)
   
tmod_nb <- textmodel_nb(dfmat_training,dfmat_training$author)

但是，在最后一行代码之后，我不断收到此错误消息：

tmod_nb <- textmodel_nb(dfmat_training,dfmat_training$author)
Error in if (stats::var(as.numeric(y),na.rm = TRUE) == 0) stop("y cannot be constant") : 
  missing value where TRUE/FALSE needed

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

naivebayes r r