d1 %>%
filter(WEIGHT2 != 7777 & WEIGHT2 != 9999 & HAVARTH3 == 2 | HAVARTH3 == 1) %>%
group_by(HAVARTH3) %>%
mutate(kb_LB = ifelse(MENTHLTH > 8999 & MENTHLTH < 10000, "kb", "lbs")) %>%
select(WEIGHT2, kb_LB)
when I look at the results i see records with WEIGHT2 of 9999. I think my filter statement is throwing it off but not sure.