# Create a sample survey data frame
survey_df <- data.frame(
person_id = rep(1:3, each = 10),
question_concept_id = rep(c(40192381, 40192396, 40192419, 40192445,
40192449, 40192452, 40192462, 40192491,
40192506, 40192525), times = 3),
answer_concept_id = sample(c(40192465, 40192430, 40192429, 40192477,
40192424), 30, replace = TRUE)
)
# Compute perceived stress sum scores
stress_sum_scores <- calc_stress_sum(survey_df)
head(stress_sum_scores)
Run the code above in your browser using DataLab