data(bfi)
describe(bfi)
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(bfi))
scores <- score.items(keys,bfi,short=TRUE)
scores
Run the code above in your browser using DataLab