KHoá học sử dụng R - Ngày 1

Việc 3 đọc tài liệu

bw=read.csv("D:\\HỌC R\\DỮ LIỆU THỰC HÀNH (TS Thạch gửi)\\birthwt.csv")

Việc 3 đọc dữ liệu`

dim(bw)
## [1] 189  11
head(bw)
##   id low age lwt race smoke ptl ht ui ftv  bwt
## 1 85   0  19 182    2     0   0  0  1   0 2523
## 2 86   0  33 155    3     0   0  0  0   3 2551
## 3 87   0  20 105    1     1   0  0  0   1 2557
## 4 88   0  21 108    1     1   0  0  1   2 2594
## 5 89   0  18 107    1     1   0  0  1   0 2600
## 6 91   0  21 124    3     0   0  0  0   0 2622

##Việc 5 Biên tập dữ liệu ### 5.1 Tạo biến số mới mwt là cân nặng của mẹ tính bằng kg

bw$mwt <- bw$lwt * 0.453592

5.2 Tạo biến số mới ethnicity là biến factor với điều kiện sau:

bw$ethnicity <- factor(ifelse(bw$race == 1, "White",ifelse(bw$race == 2, "Black", "Other")))

###Tạo 1 tập dữ liệu bw1 chỉ gồm 3 biến số id, low và bwt

bw1 = bw[, c("id", "low", "bwt")]