# Implicit Motives Tutorial

    #### 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