Nothing
# normalize with FrequencyTable
suppressMessages(
ft <- FrequencyTable(HEXACO_60$HEX_H)
)
normalize_score(HEXACO_60$HEX_H[1:5], ft, what = "Z")
# normalize with ScoreTable
st <- ScoreTable(ft, list(STEN, STANINE))
normalize_score(HEXACO_60$HEX_H[1:5], st, what = "sten")
normalize_score(HEXACO_60$HEX_H[1:5], st, what = "stanine")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.