SOC 4930 & SOC 5050 - Week 11 - Creating Scale Variable

week-11-scale.R

library(ggplot2)
library(dplyr)

# load data
autoData <- mpg

# subset to create data frame with only variables of interest for scale
autoSubset <- select(autoData, cyl, cty, hwy)

# visually inspect cronbach's alpha results
psych::alpha(autoSubset)

# re-calculate cronbach's alpha with check.keys argument
psych::alpha(autoSubset, check.keys = TRUE)

# store results of scale in object
alphaTest <- psych::alpha(autoSubset, check.keys = TRUE)

# use stored results to create new scale variable in original data frame
autoData <- mutate(autoData, scale = alphaTest$scores)