# NOT RUN {
if(require("psychTools")) {
extraversion = psychTools::bfi[c("E1", "E2", "E3", "E4", "E5")]
extraversion[, "E1"] = 7 - extraversion[, "E1"] # Reverse-coded item.
extraversion[, "E2"] = 7 - extraversion[, "E2"] # Reverse-coded item.
fit = conogive(extraversion)
}
# }
Run the code above in your browser using DataLab