как извлечь тематические модели результат с его весами в R Маллет

Question

Кто-нибудь, пожалуйста, помогите мне для извлечения результатов тематических моделей (тематических терминов) вместе с их весами.

это мой код

mallet.instances <- mallet.import(as.character(documents$id), as.character(documents$text), "custom_stopwords.csv", FALSE, token.regexp="\\p{L}[\\p{L}\\p{P}]+\\p{L}")

n.topics <- 30

topic.model <- MalletLDA(n.topics)

topic.model$loadDocuments(mallet.instances)

vocabulary <- topic.model$getVocabulary()

word.freqs <- mallet.word.freqs(topic.model)

topic.model$setAlphaOptimization(20, 50)

topic.model$train(200)

topic.model$maximize(10)

doc.topics <- mallet.doc.topics(topic.model, smoothed=T, normalized=T)

topic.words <- mallet.topic.words(topic.model, smoothed=T, normalized=T)

topic.docs <- t(doc.topics)

topic.docs <- topic.docs / rowSums(topic.docs)

write.csv(topic.docs, "topics-docs.csv" )


topics.labels <- rep("", n.topics)

for (topic in 1:n.topics) topics.labels[topic] <-paste(mallet.top.words(topic.model, topic.words[topic,],                                                                      num.top.words=10)$words, collapse=",")              

topics.labels

write.csv(topics.labels, "topics-labels.csv")