Nguyen Thi Xuan Tho-24NH1-Bai thi thuc hanh

#Nguyễn Thị Xuân thơ
#Lớp 24NH1
#MSSV 2454020031
#Bài Thi Thực Hành

#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âu1
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

mode(A1)

## [1] "numeric"

table(A1)

## A1
##  3  4  5 
## 65 39 94

#nhận xét
#giá trị trung bình cao nhất là mean 4.06
#biến có độ phân giải tán lớn nhất Ctb 0.06