Phan Thị Phương Nhi-24NH1-Bài KTTH

# Họ và tên: Phan Thị Phương Nhi
# Lớp: 24NH1
# MSSV: 2454020048
# Bài KTTH
# 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 9 
# Vẽ biểu đồ Scatter Plot
plot(Atb~Ftb,xlab="Giá trị Atb",ylab="Giá trị Ftb",col="pink")
abline(lm(Atb~Ftb))

# Nhận xét 
# Atb và Ftb có chiều hướng tương quan thuận cùng chiều với nhau 
# Mức độ tuyến tính yếu vì các điểm dữ liệu phân tán rộng quanh đường hồi quy