# Create a sample survey data frame
survey_df <- data.frame(
person_id = rep(1:3, each = 7),
question_concept_id = rep(c(40192500, 40192493, 40192457, 40192476,
40192404, 40192400, 40192384), times = 3),
answer_concept_id = sample(c(40192514, 40192455, 40192408, 40192422),
21, replace = TRUE)
)
# Compute neighborhood social disorder scores
social_disorder_scores <- calc_social_disorder(survey_df)
head(social_disorder_scores)
Run the code above in your browser using DataLab