# 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 categories
stress_category_scores <- calc_stress_category(survey_df)
head(stress_category_scores)
Run the code above in your browser using DataLab