Commit 8cc9ea0b authored by Maike Kleemeyer's avatar Maike Kleemeyer
Browse files

updated efa

parent b26a0ec1
......@@ -397,7 +397,39 @@ kable(output_H4, caption = "Item Statistik Skala H4")
Cronbach's alpha für Skala H4 ist `r rely_H4$total$std.alpha`.
# Faktorenanalyse -- will only work with more than 200 answers. If less answers have been collected, rather comment this out!
```{r echo = FALSE, message = FALSE, include = FALSE}
likert <- responses_coded %>%
select(A03:B13,C02:D06,E03:E05,F02:F08,H02:H06)
efa <- umxEFA(likert, factors = 8, minManifests = 5)
factors <- as.data.frame(loadings(efa))
color.me <- rowMaxs(abs(loadings(efa)))
```
```{r echo = FALSE, message = FALSE}
factors %>%
mutate(items = row.names(.)) %>%
relocate(items) %>%
mutate_all(~cell_spec(
.x,
color = ifelse(abs(.x) %in% color.me, "blue", "black"))) %>%
kbl(format = "html", escape = F) %>%
kable_paper("striped") %>%
pack_rows("Scale A", 1, 3) %>%
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, 37) %>%
kable_styling()
```
# Häufigkeitsanalyse
......
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