Commit a4f18cee authored by Maike Kleemeyer's avatar Maike Kleemeyer
Browse files

included H3 in EFA

parent a78f65e8
......@@ -531,12 +531,12 @@ Cronbach's alpha für Skala H4 ist `r rely_H4$total$std.alpha`.
```{r echo = FALSE, message = FALSE, include = FALSE}
likert <- responses_coded %>%
# Die Fragen H09:H13 hängen von Frage H7 + H30 ab, wenn genug Leute diese beiden Fragen mit "ja" beantwortet haben, können diese Fragen in die EFA eingehen
select(A03:B13,C02:D06,E01,E03:E05,F02:F08,H02:H06,H09:H13)
# Die Fragen H17:H21 hängen von Frage H14 ab, wenn genug Leute diese Frage mit "ja" beantwortet haben, können diese Fragen in die EFA eingehen
select(A03:B13,C02:D06,E01,E03:E05,F02:F08,H02:H06,H09:H13,H17:H21)
efa <- umxEFA(likert, factors = 9, minManifests = 5)
efa <- umxEFA(likert, factors = 10, minManifests = 5)
factors <- as.data.frame(loadings(efa))
color.me <- rowMaxs(abs(loadings(efa)))
......@@ -556,9 +556,9 @@ factors %>%
pack_rows("Scale B", 4, 14) %>%
pack_rows("Scale C", 15, 17) %>%
pack_rows("Scale D", 18, 22) %>%
pack_rows("Scale E", 23, 25) %>%
pack_rows("Scale F", 26, 32) %>%
pack_rows("Scale H", 33, 42) %>%
pack_rows("Scale E", 23, 26) %>%
pack_rows("Scale F", 27, 33) %>%
pack_rows("Scale H", 34, 48) %>%
kable_styling()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment