# Create a sample survey data frame
survey_df <- data.frame(
person_id = rep(1:3, each = 13),
question_concept_id = rep(c(40192420, 40192522, 40192412, 40192469, 40192456,
40192386, 40192500, 40192493, 40192457, 40192476,
40192404, 40192400, 40192384), times = 3),
answer_concept_id = sample(c(40192514, 40192455, 40192408, 40192422),
39, replace = TRUE)
)
# Compute neighborhood disorder scores
disorder_scores <- calc_disorder(survey_df)
head(disorder_scores)
Run the code above in your browser using DataLab