library(dplyr)
data(survey_data)
# Create a trust scale from 3 items
survey_data <- survey_data %>%
mutate(m_trust = row_means(., trust_government, trust_media, trust_science))
# Using pick()
survey_data <- survey_data %>%
mutate(m_trust = row_means(pick(starts_with("trust"))))
# Require at least 2 valid items (like SPSS MEAN.2)
survey_data <- survey_data %>%
mutate(m_trust = row_means(., trust_government, trust_media,
trust_science, min_valid = 2))
Run the code above in your browser using DataLab