data(bfi)
keys.list <- list(agree=c(-1,2:5),conscientious=c(6:8,-9,-10),
extraversion=c(-11,-12,13:15),neuroticism=c(16:20),openness = c(21,-22,23,24,-25))
keys <- make.keys(25,keys.list,item.labels=colnames(psychTools::bfi[1:25]))
scores <- score.items(keys,psychTools::bfi[1:25])
scores
summary(scores)
Run the code above in your browser using DataLab