## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
evaluate = FALSE

## ----dtm, eval = FALSE, warning=TRUE, message=TRUE----------------------------
#  
#  library(topics)
#  
#  dtm <- topicsDtm(
#    data = dep_wor_data$Depword)
#  
#  # Check the results from the dtm and refine stopwords and removal rates if necessary
#  dtm_evaluation <- topicsDtmEval(
#    dtm)
#  dtm_evaluation$frequency_plot

## ----model, eval = FALSE, warning=FALSE, message=FALSE------------------------
#  
#  model <- topicsModel(
#    dtm = dtm,
#    num_topics = 20,
#    num_iterations = 1000)
#  

## ----preds, eval = FALSE, warning=FALSE, message=FALSE------------------------
#  
#  preds <- topicsPreds(
#    model = model,
#    data = dep_wor_data$Depword)
#  

## ----test, eval = FALSE, warning=FALSE, message=FALSE-------------------------
#  
#  test <- topicsTest(
#    data = dep_wor_data,
#    model = model,
#    preds = preds,
#    x_variable = "PHQ9tot",
#    controls = c("Age"),
#    test_method = "linear_regression")
#  

## ----plot_list, eval = FALSE, warning=FALSE, message=FALSE--------------------
#  
#  plot_list <- topicsPlot(
#    model = model,
#    test = test,
#    figure_format = "png")
#  
#  # showing some of the plots
#  plot_list$square1