# MCQ160b - Ever told had congestive heart failure
# MCQ160c - Ever told you had coronary heart disease
# MCQ160d - Ever told you had angina/angina pectoris
# MCQ160e - Ever told you had heart attack
# MCQ160f - Ever told you had a stroke
history_df <- history_df %>%
mutate(CVD=case_when(
MCQ160B == 1 | MCQ160C == 1 | MCQ160D == 1 | MCQ160E == 1 | MCQ160F == 1 ~ "CHD",
MCQ160B == 2 | MCQ160C == 2 | MCQ160D == 2 | MCQ160E == 2 | MCQ160F == 2 ~ "CHD_no"
)
)