Ich habe mit folgenden Häufigkeitsverteilungen ein Chi-Quadrat-Test durchgeführt.
Code: Alles auswählen
dat_madrs7_1 <- dat <- read.table(header = TRUE, text = "
Zustand HT VT
geheilt 23 18
krank_geb 44 48
gesund_geb 0 0
krank_gew 0 1")
dat_madrs7_2 <- dat <- read.table(header = TRUE, text = "
Zustand HT VT
geheilt 23 18
krank_geb_verb 23 24
krank_geb_vers 8 7
gesund_geb_verb 0 0
gesund_geb_vers 0 0
krank_gew 0 0
gleichgeb 13 18")
dat_madrs20_1 <- dat <- read.table(header = TRUE, text = "
Zustand HT VT
geheilt 33 27
krank_geb 9 12
gesund_geb 19 26
krank_gew 6 2")
dat_madrs20_2 <- dat <- read.table(header = TRUE, text = "
Zustand HT VT
geheilt 33 25
krank_geb_verb 0 2
krank_geb_vers 4 5
gesund_geb_verb 13 15
gesund_geb_vers 0 0
krank_gew 4 2
gleichgeb 13 18")
chisq.test(dat_madrs7_1$HT, dat_madrs7_1$VT, correct=FALSE)
chisq.test(dat_madrs7_2$HT, dat_madrs7_2$VT, correct=FALSE)
chisq.test(dat_madrs20_1$HT, dat_madrs20_1$VT, correct=FALSE)
chisq.test(dat_madrs20_2$HT, dat_madrs20_2$VT, correct=FALSE)
Code: Alles auswählen
Pearson's Chi-squared test
data: dat_madrs20_1$HT and dat_madrs20_1$VT
X-squared = 12, df = 9, p-value = 0.2133
Warning message:
In chisq.test(dat_madrs20_1$HT, dat_madrs20_1$VT, correct = FALSE) :
Chi-Quadrat-Approximation kann inkorrekt sein