BTVN

Tuần 2

Với dữ liệu của tuần 1 tiếp tục làm tuần 2

Lấy dữ liệu của dataset anscombe

data(anscombe)

Gán dữ liệu của anscombe cho t

t <- anscombe

Dùng lệnh names để đặt tên cho 8 biến trong bộ dữ liệu t

names(t) <- c("x1","x2","x3","x4","y1","y2","y3","y4")

Hiện các biến có giá trị bằng 14

t == 14

##          x1    x2    x3    x4    y1    y2    y3    y4
##  [1,] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [2,] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [3,] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [4,] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [5,] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [6,]  TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE
##  [7,] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [8,] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
##  [9,] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [10,] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [11,] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE

Tính phương sai

var(anscombe)

##        x1     x2     x3     x4        y1        y2       y3        y4
## x1 11.000 11.000 11.000 -5.500  5.501000  5.500000  5.49700 -2.115000
## x2 11.000 11.000 11.000 -5.500  5.501000  5.500000  5.49700 -2.115000
## x3 11.000 11.000 11.000 -5.500  5.501000  5.500000  5.49700 -2.115000
## x4 -5.500 -5.500 -5.500 11.000 -3.565000 -4.841000 -2.32100  5.499000
## y1  5.501  5.501  5.501 -3.565  4.127269  3.095609  1.93343 -2.017731
## y2  5.500  5.500  5.500 -4.841  3.095609  4.127629  2.42524 -1.972351
## y3  5.497  5.497  5.497 -2.321  1.933430  2.425240  4.12262 -0.641000
## y4 -2.115 -2.115 -2.115  5.499 -2.017731 -1.972351 -0.64100  4.123249

Tính độ lệch chuẩn

sd(anscombe$hp)

## [1] NA

Hiện cácthông tin về trung bình, min, max, trung vị, các tứ phân vị của các biến

summary(t)

##        x1             x2             x3             x4           y1        
##  Min.   : 4.0   Min.   : 4.0   Min.   : 4.0   Min.   : 8   Min.   : 4.260  
##  1st Qu.: 6.5   1st Qu.: 6.5   1st Qu.: 6.5   1st Qu.: 8   1st Qu.: 6.315  
##  Median : 9.0   Median : 9.0   Median : 9.0   Median : 8   Median : 7.580  
##  Mean   : 9.0   Mean   : 9.0   Mean   : 9.0   Mean   : 9   Mean   : 7.501  
##  3rd Qu.:11.5   3rd Qu.:11.5   3rd Qu.:11.5   3rd Qu.: 8   3rd Qu.: 8.570  
##  Max.   :14.0   Max.   :14.0   Max.   :14.0   Max.   :19   Max.   :10.840  
##        y2              y3              y4        
##  Min.   :3.100   Min.   : 5.39   Min.   : 5.250  
##  1st Qu.:6.695   1st Qu.: 6.25   1st Qu.: 6.170  
##  Median :8.140   Median : 7.11   Median : 7.040  
##  Mean   :7.501   Mean   : 7.50   Mean   : 7.501  
##  3rd Qu.:8.950   3rd Qu.: 7.98   3rd Qu.: 8.190  
##  Max.   :9.260   Max.   :12.74   Max.   :12.500

Tuần 1

anscombe

Mô tả: Bốn tập dữ liệu xx-yy có cùng thuộc tính thống kê truyền thống (giá trị tring bình, phương sai, tương quan, đường hồi quy, v.v.), nhưng lại hoàn toàn khác nhau.

Lấy dữ liệu của dataset anscombe

data(anscombe)

Gán dữ liệu của anscombe cho t

t <- anscombe

Mô tả chi tiết dữ liệu của dataset anscombe

str(t)

## 'data.frame':    11 obs. of  8 variables:
##  $ x1: num  10 8 13 9 11 14 6 4 12 7 ...
##  $ x2: num  10 8 13 9 11 14 6 4 12 7 ...
##  $ x3: num  10 8 13 9 11 14 6 4 12 7 ...
##  $ x4: num  8 8 8 8 8 8 8 19 8 8 ...
##  $ y1: num  8.04 6.95 7.58 8.81 8.33 ...
##  $ y2: num  9.14 8.14 8.74 8.77 9.26 8.1 6.13 3.1 9.13 7.26 ...
##  $ y3: num  7.46 6.77 12.74 7.11 7.81 ...
##  $ y4: num  6.58 5.76 7.71 8.84 8.47 7.04 5.25 12.5 5.56 7.91 ...

Hiện 6 dòng đầu tiên của dữ liệu

head(t)

##   x1 x2 x3 x4   y1   y2    y3   y4
## 1 10 10 10  8 8.04 9.14  7.46 6.58
## 2  8  8  8  8 6.95 8.14  6.77 5.76
## 3 13 13 13  8 7.58 8.74 12.74 7.71
## 4  9  9  9  8 8.81 8.77  7.11 8.84
## 5 11 11 11  8 8.33 9.26  7.81 8.47
## 6 14 14 14  8 9.96 8.10  8.84 7.04

Hiện 6 dòng cuối của dữ liệu

tail(t)

##    x1 x2 x3 x4    y1   y2   y3    y4
## 6  14 14 14  8  9.96 8.10 8.84  7.04
## 7   6  6  6  8  7.24 6.13 6.08  5.25
## 8   4  4  4 19  4.26 3.10 5.39 12.50
## 9  12 12 12  8 10.84 9.13 8.15  5.56
## 10  7  7  7  8  4.82 7.26 6.42  7.91
## 11  5  5  5  8  5.68 4.74 5.73  6.89

Lấy dữ liệu của biến y1 gán cho k

Y1 <- t$y1

Lấy dữ liệu của y1 lớn hơn 8

Y1 > 8

##  [1]  TRUE FALSE FALSE  TRUE  TRUE  TRUE FALSE FALSE  TRUE FALSE FALSE

Lấy dữ liệu của y1 lớn hơn 7 và nhỏ hơn 9

Y1 > 7 & Y1 < 9

##  [1]  TRUE FALSE  TRUE  TRUE  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE

Phân Y1 thành 3 tổ

table(cut(Y1,3))

## 
## (4.25,6.45] (6.45,8.65] (8.65,10.8] 
##           3           5           3

Lấy dữ liệu từ hàng 3 cột 3

t[3,3]

## [1] 13