Diese Musterlösung wurde erstellt von Peter Hähner (Ruhr-Universität Bochum).
(c) Luhmann: R für Einsteiger, 5. Aufl., Beltz, 2020
Setzen Sie ein Arbeitsverzeichnis oder legen Sie ein entsprechendes R-Projekt an (Kap. 23).
Laden Sie dann die Datei erstis.RData.
load("erstis.RData")
Untersuchen Sie, ob sich Frauen und Männer (geschl) signifikant darin unterschieden, ob sie die Studienberatung (uni) in Anspruch genommen haben.
chisq.test(table(erstis$geschl, erstis$uni1))
##
## Pearson's Chi-squared test with Yates' continuity correction
##
## data: table(erstis$geschl, erstis$uni1)
## X-squared = 1.1476, df = 1, p-value = 0.284
Männer und Frauen unterscheiden sich nicht darin, inwieweit sie die Studienberatung in Anspruch genommen haben (χ2(1) = 1.15, p = .284).
Die Items zur Lebenszufriedenheit (lz13 bis lz17) wurden auf einem siebenstufigen Antwortformat beantwortet. Überprüfen Sie, ob beim Item lz13 im Mittel die mittlere Antwortkategorie 4 angekreuzt wurde.
wilcox.test(erstis$lz13, mu = 4)
##
## Wilcoxon signed rank test with continuity correction
##
## data: erstis$lz13
## V = 9839.5, p-value = 3.855e-12
## alternative hypothesis: true location is not equal to 4
Die Antworten beim Item lz13 unterscheiden sich signifikant von der mittleren Antwortkategorie 4 (V = 9839.50, p < .001).
Unterscheiden sich Personen mit Kindern und Personen ohne Kinder (kinder) in Bezug auf das Item lz17.
wilcox.test(lz17 ~ kinder, data = erstis)
##
## Wilcoxon rank sum test with continuity correction
##
## data: lz17 by kinder
## W = 1903, p-value = 0.7303
## alternative hypothesis: true location shift is not equal to 0
Personen mit Kindern und ohne Kinder unterscheiden sich nicht signifikant in ihrer Beantwortung des Items lz17, (W = 1903, p = .730).
Unterscheiden sich die Antworten auf das Item lz13 von den Antworten auf das Item lz17? Beantworten Sie diese Frage mit Hilfe eines Wilcoxon-Tests für abhängige Stichproben.
wilcox.test(erstis$lz13, erstis$lz17, paired = TRUE)
##
## Wilcoxon signed rank test with continuity correction
##
## data: erstis$lz13 and erstis$lz17
## V = 5721.5, p-value = 0.001801
## alternative hypothesis: true location shift is not equal to 0
Die Antworten auf das Item lz13 und lz17unterscheiden sich signifikant voneinander (V = 5721.50, p = .002).
Prüfen Sie, ob der Wohnort vor 12 Monaten (wohnort.alt) einen Effekt auf die Antworten auf das Item lz14 hat.
kruskal.test(lz14 ~ wohnort.alt, data = erstis)
##
## Kruskal-Wallis rank sum test
##
## data: lz14 by wohnort.alt
## Kruskal-Wallis chi-squared = 4.9111, df = 3, p-value = 0.1784
Der Wohnort hat keinen signifikanten Effekt auf die Antworten auf das Item lz14 (χ2(3) = 4.91, p = .178).