# \dontshow{
if(require(udpipe) && require(qgraph) && require(glasso))
{
# }
library(udpipe)
library(qgraph)
library(glasso)
data(brussels_reviews_anno, package = 'udpipe')
x <- subset(brussels_reviews_anno, xpos %in% "NN" & language %in% "fr" & !is.na(lemma))
x <- document_term_frequencies(x, document = "doc_id", term = "lemma")
dtm <- document_term_matrix(x)
dtm <- dtm_remove_lowfreq(dtm, maxterms = 60)
m <- dtm_cor(dtm)
textplot_correlation_glasso(m, exclude_zero = TRUE)
# \donttest{
textplot_correlation_glasso(m, exclude_zero = FALSE)
# }
# \dontshow{
}
# End of main if statement running only if the required packages are installed
# }
Run the code above in your browser using DataLab