Bài tập ngày 1
Việc 1
Việc 2: Cài đặt
Việc 6: Tất cả các lệnh
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)