Extr_ST <-
# create FrequencyTable
FrequencyTable(data = IPIP_NEO_300$E) |>
# create ScoreTable
ScoreTable(scale = STEN) |>
# and transform into ScoringTable
to_ScoringTable(
min_raw = 60,
max_raw = 300
)
summary(Extr_ST)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.