data(bfi)
describe(bfi)
keys.list <-
list(agree=c("-A1","A2","A3","A4","A5"),conscientious=c("C1","C2","C2","-C4","-C5"),
extraversion=c("-E1","-E2","E3","E4","E5"),neuroticism=c("N1","N2","N3","N4","N5"),
openness = c("O1","-O2","O3","O4","-O5"))
keys <- make.keys(bfi,keys.list)
scores <- score.items(keys[1:27,],bfi[1:27]) #don't score age
scores
Run the code above in your browser using DataLab