forked from NicholasDanks/Model_selection_uncertainty
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathload_models.R
98 lines (85 loc) · 3.94 KB
/
load_models.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
# Load all conceivable models
## All five models use the same measurement model
corp_rep_measurement_model = list()
## Five different structural models
corp_rep_structural_model = list()
### Model 1
corp_rep_structural_model[[1]] <- relationships(
paths(from = c("QUAL","PERF","CSOR","ATTR"), to = c("COMP","LIKE")),
paths(from = c("COMP","LIKE"), to = c("CUSA","CUSL")),
paths(from = "CUSA", to = "CUSL")
)
corp_rep_measurement_model[[1]] <- constructs(
composite("QUAL", multi_items("qual_", 1:8), weights = mode_B),
composite("PERF", multi_items("perf_", 1:5), weights = mode_B),
composite("CSOR", multi_items("csor_", 1:5), weights = mode_B),
composite("ATTR", multi_items("attr_", 1:3), weights = mode_B),
composite("COMP", multi_items("comp_", 1:3)),
composite("CUSA", single_item("cusa")),
composite("LIKE", multi_items("like_", 1:3)),
composite("CUSL", multi_items("cusl_", 1:3))
)
### Model 2
corp_rep_structural_model[[2]] <- relationships(
paths(from = c("QUAL","PERF","CSOR","ATTR"), to = c("COMP","LIKE")),
paths(from = c("COMP","LIKE"), to = c("CUSA")),
paths(from = c("CUSA","LIKE"), to = "CUSL")
)
corp_rep_measurement_model[[2]] <- constructs(
composite("QUAL", multi_items("qual_", 1:8), weights = mode_B),
composite("PERF", multi_items("perf_", 1:5), weights = mode_B),
composite("CSOR", multi_items("csor_", 1:5), weights = mode_B),
composite("ATTR", multi_items("attr_", 1:3), weights = mode_B),
composite("COMP", multi_items("comp_", 1:3)),
composite("CUSA", single_item("cusa")),
composite("LIKE", multi_items("like_", 1:3)),
composite("CUSL", multi_items("cusl_", 1:3))
)
### Model 3
corp_rep_structural_model[[3]] <- relationships(
paths(from = c("QUAL","PERF","CSOR","ATTR"), to = c("COMP","LIKE")),
paths(from = c("COMP","LIKE"), to = c("CUSA")),
paths(from = "CUSA", to = "CUSL")
)
corp_rep_measurement_model[[3]] <- constructs(
composite("QUAL", multi_items("qual_", 1:8), weights = mode_B),
composite("PERF", multi_items("perf_", 1:5), weights = mode_B),
composite("CSOR", multi_items("csor_", 1:5), weights = mode_B),
composite("ATTR", multi_items("attr_", 1:3), weights = mode_B),
composite("COMP", multi_items("comp_", 1:3)),
composite("CUSA", single_item("cusa")),
composite("LIKE", multi_items("like_", 1:3)),
composite("CUSL", multi_items("cusl_", 1:3))
)
### Model 4
corp_rep_structural_model[[4]] <- relationships(
paths(from = c("QUAL","PERF","CSOR","ATTR"), to = c("COMP","LIKE","CUSA")),
paths(from = c("COMP","LIKE"), to = c("CUSA","CUSL")),
paths(from = "CUSA", to = "CUSL")
)
corp_rep_measurement_model[[4]] <- constructs(
composite("QUAL", multi_items("qual_", 1:8), weights = mode_B),
composite("PERF", multi_items("perf_", 1:5), weights = mode_B),
composite("CSOR", multi_items("csor_", 1:5), weights = mode_B),
composite("ATTR", multi_items("attr_", 1:3), weights = mode_B),
composite("COMP", multi_items("comp_", 1:3)),
composite("CUSA", single_item("cusa")),
composite("LIKE", multi_items("like_", 1:3)),
composite("CUSL", multi_items("cusl_", 1:3))
)
### Model 5
corp_rep_structural_model[[5]] <- relationships(
paths(from = c("QUAL","PERF","CSOR","ATTR"), to = c("COMP","LIKE","CUSA","CUSL")),
paths(from = c("COMP","LIKE"), to = c("CUSA","CUSL")),
paths(from = "CUSA", to = "CUSL")
)
corp_rep_measurement_model[[5]] <- constructs(
composite("QUAL", multi_items("qual_", 1:8), weights = mode_B),
composite("PERF", multi_items("perf_", 1:5), weights = mode_B),
composite("CSOR", multi_items("csor_", 1:5), weights = mode_B),
composite("ATTR", multi_items("attr_", 1:3), weights = mode_B),
composite("COMP", multi_items("comp_", 1:3)),
composite("CUSA", single_item("cusa")),
composite("LIKE", multi_items("like_", 1:3)),
composite("CUSL", multi_items("cusl_", 1:3))
)