#Khóa học phân tích dữ liệu R Ngày 1 ##việc 3: đọc dữ liệu Yêu cầu đọc dữ liệu vào RR

bw=read.csv("C:\\Users\\HP\\OneDrive - PVCFC\\Documents\\1.BAN KỸ THUẬT AN TOÀN CNTT\\8. TÀI LIỆU ĐÀO TẠO\\PHÂN TÍCH DỮ LIỆU R\\DỮ LIỆU THỰC HÀNH (TS Thạch gửi)\\birthwt.csv")

##Việc 4 _Chi:Tìm biến số ###4.1 tìm thông tin biến số

dim(bw)
## [1] 189  11

###4.2 đọc 6 dòng đầu

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

###4.3 đọc 10 dòng cuối

tail(bw,10)
##     id low age lwt race smoke ptl ht ui ftv  bwt
## 180 71   1  17 120    2     0   0  0  0   2 2438
## 181 75   1  26 154    3     0   1  1  0   1 2442
## 182 76   1  20 105    3     0   0  0  0   3 2450
## 183 77   1  26 190    1     1   0  0  0   0 2466
## 184 78   1  14 101    3     1   1  0  0   0 2466
## 185 79   1  28  95    1     1   0  0  0   2 2466
## 186 81   1  14 100    3     0   0  0  0   2 2495
## 187 82   1  23  94    3     1   0  0  0   0 2495
## 188 83   1  17 142    2     0   0  1  0   0 2495
## 189 84   1  21 130    1     1   0  1  0   3 2495

###5.2 Tạo biến ethnicity

bw$ethnicity[bw$race==1]="white"
bw$ethnicity[bw$race==2]="black"
bw$ethnicity[bw$race==3]="other"

###5.3 Tạo tập dữ liệu bw1

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

###5.4 Cân nặng thấp

bw3=subset(bw,low==1)

###5.5 bé cân nặng thấp mẹ hút thuốthuốc

bw4=subset(bw,low==1&smoke==1)