建立模型后，如何将新文本加入进去经行测试

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

这个是主题模型建立：
library(slam)
summary(col_sums(sample.dtm))
term_tfidf <- tapply(sample.dtm$v/row_sums( sample.dtm)[ sample.dtm$i],
                     sample.dtm$j, mean)*
  log2(nDocs( sample.dtm)/col_sums( sample.dtm > 0))
summary(term_tfidf)
sample.dtm <- sample.dtm[, term_tfidf >= 0.1]
sample.dtm <- sample.dtm[row_sums(sample.dtm) > 0,]
k <- length(unique(csv$type))
library(topicmodels)
SEED <- 2012
sample_TM <- list(
  VEM = LDA( sample.dtm, k=k, control = list(seed = SEED)),
  VEM_fixed = LDA( sample.dtm, k = k, control = list(estimate.alpha = FALSE, seed = SEED)),
  Gibbs = LDA( sample.dtm, k = k, method = "Gibbs", control = list(seed = SEED, burnin =
                                                                      1000, thin = 100, iter = 1000)),
  CTM = CTM( sample.dtm, k = k, control = list(seed = SEED, var = list(tol = 10^-4), em =
                                                  list(tol = 10^-3))))
sapply(sample_TM[1:2], slot, "alpha")
sapply(sample_TM, function(x) mean(apply(posterior(x)$topics,1, function(z)
  -sum(z*log(z)))))
Topic <- topics(sample_TM[["VEM"]], 1)
Terms <- terms(sample_TM[["VEM"]], 5)
Terms[, 1:6]
这一部分完了后是否就可以拿新文本进行测试了？

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：建立模型 Summary Library Sample Summa 模型 如何

问题解决了吗？