- data %>%
- mutate(
- fat = case_when(
- age == 2 & gender == "boy" & wasit >= 51.8 ~ 1,
- age == 3 & gender == "boy" & wasit >= 53.4 ~ 1,
- ...
- age == 2 & gender == "girl" & wasit >= 52.4 ~ 1,
- age == 3 & gender == "girl" & wasit >= 54.6 ~ 1,
- ...
- TRUE ~ 0
- )
- )


雷达卡





京公网安备 11010802022788号







