peanut_allergy <- structure(list(had_early_risk = c("no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes"), regimen = c("avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "avoid", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume", "consume" ), allergic = c("yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "yes", "yes", "yes", "yes", "yes", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "yes", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "yes", "yes", "yes", "yes", "yes", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no", "no")), class = "data.frame", row.names = c(NA, -628L))