data(bfi)
psych::describe(bfi)
# create the bfi.keys (actually already saved in the data file)
bfi.keys <-
list(agree=c("-A1","A2","A3","A4","A5"),conscientious=c("C1","C2","C3","-C4","-C5"),
extraversion=c("-E1","-E2","E3","E4","E5"),neuroticism=c("N1","N2","N3","N4","N5"),
openness = c("O1","-O2","O3","O4","-O5"))
scores <- psych::scoreItems(bfi.keys,bfi,min=1,max=6) #specify the minimum and maximum values
scores
#show the use of the keys.lookup with a dictionary
psych::keys.lookup(bfi.keys,bfi.dictionary[,1:4])
Run the code above in your browser using DataLab