NGUYEN MINH QUANG-24NH1-BAI KTTH

#HỌ VÀ TÊN: NGUYỄN MINH QUANG
#LỚP:24NH1-MSSV:2454020009
#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

#Câu13
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:
#kiểm định hệ số tương quan <0
#Hệ số tương quan của các biến <5%
#vì vậy các biến không có sự tương quan