NGUYEN THI LAN-24NH1-BÀI KTTH

# HỌ VÀ TÊN: NGUYỄN THỊ LAN
# LỚP: 24NH1
# MSSV: 2454020044

# NHẬP LIỆU
likert=file.choose()
datalikert= read.csv(likert, header = TRUE)
save(datalikert, file = "datalikert.rda")
attach(datalikert)
is.data.frame(datalikert)

## [1] TRUE

head(datalikert)

##   STT GTINH TDO DTUOI TNHAP A1 A2 A3 A4 A5 B1 B2 B3 B4 C1 C2 C3 C4 D1 D2 D3 E1
## 1   1     2   4     1     3  5  5  3  5  4  3  2  3  4  5  5  4  4  4  5  4  2
## 2   2     2   2     2     3  3  3  3  5  4  4  5  4  5  2  3  3  2  3  4  3  3
## 3   3     2   4     1     2  3  3  3  3  3  4  4  4  5  4  4  3  4  3  4  4  4
## 4   4     1   4     2     2  5  3  3  4  4  5  5  5  5  1  2  4  3  5  4  1  3
## 5   5     2   3     1     1  5  3  3  5  4  3  3  3  3  3  4  3  3  4  4  3  4
## 6   6     1   4     2     2  5  3  3  5  4  3  4  3  3  3  4  5  3  2  3  3  4
##   E2 E3 E4 F1 F2 F3 F4 F5 Atb  Btb  Ctb  Dtb  Etb Ftb
## 1  3  3  4  4  5  3  4  5 4.4 3.00 4.50 4.33 3.00 4.2
## 2  4  3  4  3  3  3  4  5 3.6 4.50 2.50 3.33 3.50 3.6
## 3  3  3  4  4  4  4  4  5 3.0 4.25 3.75 3.67 3.50 4.2
## 4  4  3  4  5  5  4  4  5 3.8 5.00 2.50 3.33 3.50 4.6
## 5  3  3  4  2  5  4  4  5 4.0 3.00 3.25 3.67 3.50 4.0
## 6  4  3  4  3  3  5  4  5 4.0 3.25 3.75 2.67 3.75 4.0

dim(datalikert)

## [1] 198  36

# CÂU 8
boxplot(Ftb, ylab= "giá trị biến Ftb", col="blue")

boxplot.stats(Ftb)

## $stats
## [1] 2.0 3.0 3.9 4.4 5.0
## 
## $n
## [1] 198
## 
## $conf
## [1] 3.7428 4.0572
## 
## $out
## numeric(0)

# NHẬN XÉT
# Biến Ftb không có giá trị ngoại lai vì $out numeric(0)