rorschach {NaileR}R Documentation

Rorschach inkblots

Description

This dataset was initially collected to understand the perception of the Rorschach test.

Usage

rorschach

Format

A data frame with 600 rows and 5 columns:

Source

Applied mathematics department, Institut Agro Rennes-Angers

Examples

## Not run: 
# Processing time is often longer than ten seconds
# because the function uses a large language model.

library(NaileR)
data(rorschach)

### Example 1: perception of the inkblots for one panel ###
intro_rorschach <- "For this study,
we asked 20 people to briefly describe
the 10 inkblots of the Rorschach test."
intro_rorschach <- gsub('\n', ' ', intro_rorschach) |>
stringr::str_squish()

request_rorschach <- "Based on the comments of the 20 people,
please give me a description of each inkblot
in terms of how it was perceived. Tell me if it was
a rather positive or negative perception."
request_rorschach <- gsub('\n', ' ', request_rorschach) |>
stringr::str_squish()

rorschach_A <- droplevels(rorschach[rorschach$Panel=="A",])

res_nail_textual_rorschach <- nail_textual(rorschach_A, num.var = 2,
                                           num.text = 5,
                                           introduction = intro_rorschach,
                                           request = request_rorschach,
                                           model = 'llama3',
                                           isolate.groups = FALSE,
                                           generate = FALSE)
res_nail_textual_rorschach |> cat()

ppt <- gsub("## Group", "## Inkblot", res_nail_textual_rorschach)
ppt |> cat()

res_inkblot <- ollamar::generate(model = 'llama3', prompt = ppt,
                                 output = "text")
res_inkblot |> cat()

## End(Not run)

[Package NaileR version 1.2.3 Index]