R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

summary(cars)
##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.

Việc 3

Đọc dữ liệu “birthwt.csv” vào R và gọi dữ liệu là “bw”

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

Việc 4

Có bao nhiêu biến số (variable) và quan sát (observation) ### 4.1. Bao nhiêu biến số và quan sát

dim(bw)
## [1] 189  11

4.2. Liệt kê 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. Hỏi chat gpt và liệt kê 6 dòng cuối

tail(bw, 6)
##     id low age lwt race smoke ptl ht ui ftv  bwt
## 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

Việc 5

Tạo biến số

bw$mvt = bw$lwt * 0.45

Tạo biến ethnicity

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

tạo tập tin mới

bw2 = bw [, c ("id","low","lwt") ]