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

## ----eval = evaluate, warning=FALSE, message=FALSE, dpi=300-------------------
# #### Initial setup: Install and open the text package in an R environment (only required the first time).
# #install.packages("text")
# #textrpp_install()
# #textrpp_initialize()
# 
# #### Load the package.
# library(text)
# 
# #### 1: Load data. The following data serves as an example:
# im_example <- dplyr::mutate(
#   .data = Language_based_assessment_data_8,
#   story = harmonytexts,
#   participant_id = dplyr::row_number())
# 
# #### 2: Retrieve sentence- and person-level predictions. Choose between our three motives: power, achievement, or affiliation.
# predictions <- textPredict(
#   texts = im_example$story,
#   model_info = "implicitpower_roberta23_nilsson2024",
#   participant_id = im_example$participant_id,
#   dataset_to_merge_predictions = im_example)
# 
# #### 3: Examine sentence- and person-level predictions.
# predictions$sentence_assessments
# predictions$person_assessments
# 
# 
#