Đáp án câu 1

# Nhap lieu
datalikert=read.csv("/Users/trandoankhanhly/Documents/Phân tích dữ liệu/Likert.csv",header = TRUE)
save(datalikert,file = "datalikert.rda")
attach(datalikert)
is.data.frame(datalikert)

## [1] TRUE

# Câu 1
library(psych)
ABCDEFtb=data.frame(Atb,Btb,Ctb,Dtb,Etb,Ftb)
describe(ABCDEFtb)

##     vars   n mean   sd median trimmed  mad  min max range  skew kurtosis   se
## Atb    1 198 4.06 0.72   4.00    4.08 1.19 2.20   5  2.80 -0.15    -1.14 0.05
## Btb    2 198 3.95 0.83   4.00    4.04 1.11 1.25   5  3.75 -0.89     0.37 0.06
## Ctb    3 198 3.68 0.87   3.62    3.71 0.93 1.50   5  3.50 -0.11    -0.61 0.06
## Dtb    4 198 3.80 0.78   4.00    3.85 0.49 1.00   5  4.00 -0.68     0.71 0.06
## Etb    5 198 3.95 0.81   4.00    4.04 0.74 1.25   5  3.75 -0.97     1.02 0.06
## Ftb    6 198 3.85 0.74   3.90    3.84 1.04 2.00   5  3.00 -0.04    -1.12 0.05

# Nhận xét: Biến có giá trị trung bình lớn nhất là: Atb (4,06)
# Biến có độ phân tán lớn nhất là: Ctb (0,87)
# Tính MODE A1
library(DescTools)

## 
## Attaching package: 'DescTools'

## The following objects are masked from 'package:psych':
## 
##     AUC, ICC, SD

Mode(A1)

## [1] 5
## attr(,"freq")
## [1] 94

# Nhận xét: Giá trị Mode A1 là 4 với 94 lần xuất hiện