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

inlcuded H4 in EFA

parent 831f30da
......@@ -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 H23:H25 hängen von Frage H14 ab, wenn genug Leute diese Frage mit "nein" beantwortet haben, können diese Fragen in die EFA eingehen
select(A03:B13,C02:D06,E01,E03:E05,F02:F08,H02:H06,H09:H13,H23:H25)
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)))
......@@ -558,7 +558,7 @@ factors %>%
pack_rows("Scale D", 18, 22) %>%
pack_rows("Scale E", 23, 26) %>%
pack_rows("Scale F", 27, 33) %>%
pack_rows("Scale H", 34, 43) %>%
pack_rows("Scale H", 34, 46) %>%
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