개요
교재
- 이론적인 공부 및 Self-Study를 위해 크게 2가지 방향성을 잡고 공부하려고 함
Sample Code
## Loading required package: lattice
data("ECSIsm")
head(ECSIsm)
## source target
## [1,] "Image" "Expectation"
## [2,] "Expectation" "Quality"
## [3,] "Expectation" "Value"
## [4,] "Quality" "Value"
## [5,] "Image" "Satisfaction"
## [6,] "Expectation" "Satisfaction"
data("ECSImm")
head(ECSImm)
## source target
## [1,] "Image" "IMAG1"
## [2,] "Image" "IMAG2"
## [3,] "Image" "IMAG3"
## [4,] "Image" "IMAG4"
## [5,] "Image" "IMAG5"
## [6,] "Expectation" "CUEX1"
## CUEX1 CUEX2 CUEX3 CUSA1 CUSA2 CUSA3 CUSCO CUSL1 CUSL2 CUSL3 IMAG1 IMAG2 IMAG3
## 1 7 7 6 6 4 7 7 6 5 6 7 5 5
## 2 10 10 9 10 10 8 10 10 2 10 10 9 10
## 3 7 7 7 8 7 7 6 6 2 7 8 7 6
## 4 7 10 5 10 10 10 5 10 4 10 10 10 5
## 5 8 7 10 10 8 8 5 10 3 8 10 10 5
## 6 10 9 7 8 7 7 8 10 3 10 8 9 10
## IMAG4 IMAG5 PERQ1 PERQ2 PERQ3 PERQ4 PERQ5 PERQ6 PERQ7 PERV1 PERV2
## 1 5 4 7 6 4 7 6 5 5 2 3
## 2 10 9 10 9 10 10 9 10 10 10 10
## 3 4 7 7 8 5 7 8 7 7 7 7
## 4 5 10 8 10 10 8 4 5 8 5 5
## 5 8 9 10 9 8 10 9 9 8 6 6
## 6 8 9 9 10 9 10 8 9 9 10 10
ECSI <- plsm(data = mobi, strucmod = ECSIsm, measuremod = ECSImm)
mvpairs(model = ECSI, data = mobi, LVs = "Expectation")
