# NOT RUN {
# ?psych::bfi
Alpha(bfi, "E", 1:5) # "E1" & "E2" should be reverse scored
Alpha(bfi, "E", 1:5, rev=1:2) # correct
Alpha(bfi, "E", 1:5, rev=c("E1", "E2")) # also correct
Alpha(bfi, vars=c("E1", "E2", "E3", "E4", "E5"), rev=c("E1", "E2"))
Alpha(bfi, varrange="E1:E5", rev=c("E1", "E2"))
# using dplyr::select()
bfi %>% select(E1, E2, E3, E4, E5) %>%
Alpha(vars=names(.), rev=c("E1", "E2"))
# }
Run the code above in your browser using DataLab