Commit 5a7252c6 authored by Maike Kleemeyer's avatar Maike Kleemeyer
Browse files

included E01 in EFA

parent 4e32c2b6
......@@ -531,7 +531,7 @@ Cronbach's alpha für Skala H4 ist `r rely_H4$total$std.alpha`.
```{r echo = FALSE, message = FALSE, include = FALSE}
likert <- responses_coded %>%
select(A03:B13,C02:D06,E03:E05,F02:F08,H02:H06)
select(A03:B13,C02:D06,E01,E03:E05,F02:F08,H02:H06)
efa <- umxEFA(likert, factors = 8, minManifests = 5)
factors <- as.data.frame(loadings(efa))
......@@ -842,4 +842,4 @@ G042 <- as.data.frame(table(responses$`G04[SQ002]`, useNA = "ifany")) %>%
kable(G042, col.names = c("Antwort", "Häufigkeit", "Prozent"),
table.attr = "class=\"striped\"", format = "html") %>%
kable_material(c("striped", "hover"))
```
\ No newline at end of file
```
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