##{r} ## ob = read.csv("C:\\Users\\ADMIN\\Desktop\\NCS\\Phuong phap NCKH va cong bo QT\\Obesity data.csv") ## head(ob) ## dim(ob) ## summary(ob) ## ob$sex <- ifelse(ob$gender == "F", 1, 0) ## ob$obese <- ifelse(ob$bmi < 18.5, "Underweight", ifelse(ob$bmi < 25.0, "Normal", ifelse(ob$bmi < 30.0, "Overweight", "Obese"))) ## ob$fat.kg <- ob$weight * ob$pcfat / 100 ## ob$lean.kg <- ob$weight - ob$fat.kg ## men.overweight <- ob %>% ## filter(gender == "M", bmi > 25.0, bmi < 30.0) ## nrow(men.overweight) ## ncol(men.overweight) ## men.overweight <- ob %>% ## filter(gender == "M", bmi >= 30.0) ## nrow(men.overweight) ## ncol(men.overweight) ## Demo <- ob %>% ## select(id, age, gender, height, weight, pcfat)