#Họ và tên: Lê Nguyễn Hà Nam
#Lớp:24NH1 MSSV:2454020035
#bài thực hành
likert=file.choose()
datalikert=read.csv(likert,header = TRUE)
save(datalikert,file="datalikert.rda")
attach(datalikert)
is.data.frame(datalikert)
## [1] TRUE
#Câu 13
library(psych)
vars=cbind(Atb,Btb,Ctb,Dtb,Etb,Ftb)
pairs.panels(vars)
library(Hmisc)
##
## Attaching package: 'Hmisc'
## The following object is masked from 'package:psych':
##
## describe
## The following objects are masked from 'package:base':
##
## format.pval, units
result=rcorr(as.matrix(vars),type = "pearson")
result$r
## Atb Btb Ctb Dtb Etb Ftb
## Atb 1.00000000 0.06221638 0.03185639 0.04014488 -0.08600054 0.2222299
## Btb 0.06221638 1.00000000 0.16097635 0.22801725 -0.10776531 0.2511952
## Ctb 0.03185639 0.16097635 1.00000000 0.50335736 0.02399959 0.5915879
## Dtb 0.04014488 0.22801725 0.50335736 1.00000000 0.13044247 0.5733869
## Etb -0.08600054 -0.10776531 0.02399959 0.13044247 1.00000000 0.2096923
## Ftb 0.22222985 0.25119517 0.59158791 0.57338686 0.20969230 1.0000000
result$P
## Atb Btb Ctb Dtb Etb Ftb
## Atb NA 0.3838835582 6.559338e-01 5.744306e-01 0.228316785 0.0016512737
## Btb 0.383883558 NA 2.347636e-02 1.234270e-03 0.130738634 0.0003574484
## Ctb 0.655933822 0.0234763641 NA 4.085621e-14 0.737161764 0.0000000000
## Dtb 0.574430580 0.0012342702 4.085621e-14 NA 0.066996016 0.0000000000
## Etb 0.228316785 0.1307386340 7.371618e-01 6.699602e-02 NA 0.0030269715
## Ftb 0.001651274 0.0003574484 0.000000e+00 0.000000e+00 0.003026971 NA
#Nhận xét
#Hệ tương quan giữa Ftb và Atb,Btb,Ctb,Dtb,Etb,Ftb > 0,6 ->đánh giá tin cậy
#Hệ số Sig < 5% -> không loại chỉ số nào cả