У меня возникла проблема при выполнении ковариатного эффекта для модели STM в R. Есть ли какие-либо предложения для решения этой проблемы?
library(quanteda)
data <- read.csv("nr_11r.csv")
data$documents <- as.character(data$documents)
data$gender <- as.factor(data$gender)
data$date <- as.Date(data$date, "%m/%d/%Y")
data$day <- as.numeric(format(data$date, "%d"))
test <- corpus(data, text_field="documents")
test_dfm <- dfm(test, remove_punct=T, remove=stopwords("english"))
test_dfm <- dfm_trim(test_dfm, min_termfreq = 2)
test_dfm <- test_dfm[rowSums(test_dfm) > 0, ] #remove empty rows
library(stm)
m <- stm(test_dfm, K = 40, max.em.its = 100, control=list(alpha=1))
#prevalence
m2 <- stm(test_dfm, K = 40, prevalence =~ day, max.em.its = 100)
prep <- estimateEffect(1:40 ~ day, stmobj = m2, meta =
docvars(test_dfm))
Предупреждение об ошибке приходит из prep: Ошибка в posint (K):не удалось найти функцию "posint"