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