ĐÁP ÁN CÂU 1

# 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

# 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)
#Bien co do phan giai lon nhat là Ctb

#Tinh 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 : Mode của A1 là 5 với 94 lần xuất hiện