# will generate figures in a temporary directory
if (FALSE) {
data("bfi")
bfi <- bfi[,c("BFIK_open", paste0("BFIK_open_", 1:4))]
codebook_component_scale(bfi[,1], "BFIK_open", bfi[,-1],
reliabilities = list(BFIK_open = psych::alpha(bfi[,-1])))
}
Run the code above in your browser using DataLab