# Honesty/Humility and Agreeableness items
# the use of file output is recommended
# to prevent irregular placement of plot labels
res <- ipv_est(
HEXACO[1:1000,grep("^H_.*[1-4]$|^A_.*[1-4]$", names(HEXACO))],
"HA")
# reduced to first 4 items per facet and first 1000 observations to reduce
# runtime
item_overview(res$est_raw) # file output is recommended (see details)
Run the code above in your browser using DataLab