Hypothese

H1: Es gibt einen Unterschied in der zentralen Tendenz zwischen “gut trainierten” und “untrainierten” Teilnehmnern in Punkto körperlichen Wohlbefinden.

H0: Es gibt keinen Unterschied in der zentralen Tendenz zwischen “gut trainierten” und “untrainierten” Teilnehmnern in Punkto körperlichen Wohlbefinden.

Voraussetzungen des Mann-Whitney-U-Tests

Die abhängige Variable ist mindestens ordinalskaliert -> Körperliches Wohlbefinden wurde nur einmal erfragt. Es handelt sich um eine sub. Einschätzung.

Es liegt eine unabhängige Variable vor, mittels der die beiden zu vergleichenden Gruppen gebildet werden. (untrainierte vs trainierte Gruppe)

Bei diesen Ausprägungen eignet sich der U-Test:

Boxplot

myColors <- c("deepskyblue", "pink2")
boxplot(u$kWohlbefinden ~ u$Trainingstatus , 
    col=myColors , 
    ylab="körperliches Wohlbefinden" , xlab="- Trainingstatus -")

ggplot(u, 
       aes(x =Trainingstatus,
           y = kWohlbefinden)) +
  geom_boxplot() +
  theme(panel.background = element_rect(size = 0.5, fill = "grey", colour = "darkgrey", linetype='solid')
        )+
  labs(y="körperliche Wohlbefinden", x = "Trainingstatus")

NA
NA

Deskriptive Statistik

library(dplyr)
Paket 㤼㸱dplyr㤼㸲 wurde unter R Version 3.6.3 erstellt
Attache Paket: 㤼㸱dplyr㤼㸲

The following objects are masked from 㤼㸱package:stats㤼㸲:

    filter, lag

The following objects are masked from 㤼㸱package:base㤼㸲:

    intersect, setdiff, setequal, union
u %>%
group_by(Trainingstatus) %>%
  summarize(Anzahl = n(), Median = median(kWohlbefinden)) %>%
  mutate_if(is.numeric, round, 2)
`summarise()` ungrouping output (override with `.groups` argument)

Alternativ

library(psych)

Attache Paket: 㤼㸱psych㤼㸲

The following objects are masked from 㤼㸱package:ggplot2㤼㸲:

    %+%, alpha
describe.by(u$kWohlbefinden, group = u$Trainingstatus, mat = TRUE)
describe.by is deprecated.  Please use the describeBy function

Es ist zu erkennen, dass sich der Median der beiden Gruppen unterscheidet. Die Gruppe “untrainierte Teilnehmer” haben einen Median von 35 und die Teilnehmer “gut trainiert” haben einen Median von 58.5. Damit fühlen sich die gut trainierten Teilnehmer körperlich wohler als die Teilnehmer, die untrainiert sind.

Ergebnisse des Mann-Whitney-U-Tests

In R gibt es den asymptotische Signifikanz aus, als auch eine exakte Signifikanz. In Abhängigkeit von der Stichprobengrösse wird der eine oder andere Wert berichtet:

Ist die Stichprobe hinreichend gross (n1 + n2 > 30), so wird die asymptotische Signifikanz verwendet.

wilcox.test(u$kWohlbefinden~ u$Trainingstatus, exact = FALSE)

    Wilcoxon rank sum test with continuity correction

data:  u$kWohlbefinden by u$Trainingstatus
W = 101, p-value = 0.01816
alternative hypothesis: true location shift is not equal to 0

Ist dies nicht der Fall, so wird die exakte Signifikanz verwendet.

testwil<-  wilcox.test(u$kWohlbefinden~ u$Trainingstatus)
testwil

    Wilcoxon rank sum test

data:  u$kWohlbefinden by u$Trainingstatus
W = 101, p-value = 0.0158
alternative hypothesis: true location shift is not equal to 0

Der Unterschied zwischen den Gruppen ist signifikant (W = 101, p = .015, n = 23).

Berechnung der Effektstärke

\[r=\left\| \frac{z}{\sqrt{n}} \right\|\]

Zstat<-qnorm(testwil$p.value/2)
sprintf("Z-Wert für den U-Test : %.2f", Zstat)
[1] "Z-Wert für den U-Test : -2.41"
daten <- nrow(u)
sprintf("Anzahl der Daten: %.f", daten)
[1] "Anzahl der Daten: 23"
eff <- abs(Zstat/sqrt(daten))
sprintf("Effektstärke: %.2f", eff)
[1] "Effektstärke: 0.50"

Zur Beurteilung der Groesse des Effektes dient die Einteilung von Cohen (1992):

\[ \begin{align} \text{Schwacher Effekt: } 0.10 &< ||r|| < 0.30 \\ \text{Schwacher bis mittlerer Effekt: } 0.30 &= ||r|| \\ \text{Mittlerer Effekt: } 0.30 &< ||r|| < 0.50 \\ \text{Mittlerer bis starker Effekt: }0.50 &= ||r|| \\ \text{Starker Effekt: } 0.50 &< ||r|| \end{align} \]

Damit entspricht eine Effektstärke von .50 einem starken Effekt.

Eine Aussage

Es gibt einen signifikanten Unterschied zwischen den Gruppen und dem Wohlbefinden - Mann-Whitney-U-Test (W = 101, p = .015). Gut trainierte Teilnehmer weisen ein höheres körperliches Wohlbefinden auf (Median = 58.5, N = 14) als die untrainierten Teilnehmer (Median = 35 , N = 9). Mann-Whitney-U-Test (W = 101, p = .015). Die Effektstärke nach Cohen (1992) liegt bei r = 0.5 und entspricht einem starken Effekt. H0 kann verworfen werden.

Kompakt: Gut trainierte Teilnehmer weisen ein signifikant höheres körperliches Wohlbefinden auf (Median = 58.5, N = 14) als die untrainierten Teilnehmer (Median = 35 , N = 9) - Mann-Whitney-U-Test (W = 101, p = .015). Die Effektstärke nach Cohen (1992) liegt bei r = 0.5 und entspricht einem starken Effekt. H0 kann verworfen werden.

LS0tDQp0aXRsZTogIk1hbm4tV2hpdG5leS1VLVRlc3QgLyBXaWxjb3hvbiBSYW5nc3VtbWVuLVRlc3QgZsO8ciB1bmFiaMOkbmlnZSBTdGljaHByb2JlbiINCm91dHB1dDogaHRtbF9ub3RlYm9vaw0KLS0tDQoNCiMgSHlwb3RoZXNlDQoNCkgxOiBFcyBnaWJ0IGVpbmVuIFVudGVyc2NoaWVkIGluIGRlciB6ZW50cmFsZW4gVGVuZGVueiB6d2lzY2hlbiAiZ3V0IHRyYWluaWVydGVuIiANCnVuZCAidW50cmFpbmllcnRlbiIgVGVpbG5laG1uZXJuIGluIFB1bmt0byBrw7ZycGVybGljaGVuIFdvaGxiZWZpbmRlbi4gDQoNCkgwOiBFcyBnaWJ0IGtlaW5lbiBVbnRlcnNjaGllZCBpbiBkZXIgemVudHJhbGVuIFRlbmRlbnogendpc2NoZW4gImd1dCB0cmFpbmllcnRlbiIgDQp1bmQgInVudHJhaW5pZXJ0ZW4iIFRlaWxuZWhtbmVybiBpbiBQdW5rdG8ga8O2cnBlcmxpY2hlbiBXb2hsYmVmaW5kZW4uDQoNCiMgVm9yYXVzc2V0enVuZ2VuIGRlcyBNYW5uLVdoaXRuZXktVS1UZXN0cw0KRGllIGFiaMOkbmdpZ2UgVmFyaWFibGUgaXN0IG1pbmRlc3RlbnMgb3JkaW5hbHNrYWxpZXJ0IC0+ICBLw7ZycGVybGljaGVzIFdvaGxiZWZpbmRlbiB3dXJkZSBudXIgZWlubWFsIGVyZnJhZ3QuIEVzIGhhbmRlbHQgc2ljaCB1bSBlaW5lIHN1Yi4gRWluc2Now6R0enVuZy4NCg0KDQpFcyBsaWVndCBlaW5lIHVuYWJow6RuZ2lnZSBWYXJpYWJsZSB2b3IsIG1pdHRlbHMgZGVyIGRpZSBiZWlkZW4genUgdmVyZ2xlaWNoZW5kZW4gR3J1cHBlbiBnZWJpbGRldCB3ZXJkZW4uICh1bnRyYWluaWVydGUgdnMgdHJhaW5pZXJ0ZSBHcnVwcGUpDQoNCg0KQmVpIGRpZXNlbiBBdXNwcsOkZ3VuZ2VuIGVpZ25ldCBzaWNoIGRlciBVLVRlc3Q6IA0KDQoqIGtsZWluZSBTdGljaHByb2Jlbg0KKiBBdXNyZWlzc2VyDQoqIG9yZGluYWxza2FsaWVydGUgRGF0ZW4NCioga2VpbmUgTm9ybWFsdmVydGVpbHVuZw0KDQojIEJveHBsb3QNCg0KYGBge3J9DQpteUNvbG9ycyA8LSBjKCJkZWVwc2t5Ymx1ZSIsICJwaW5rMiIpDQpib3hwbG90KHUka1dvaGxiZWZpbmRlbiB+IHUkVHJhaW5pbmdzdGF0dXMgLCANCiAgICBjb2w9bXlDb2xvcnMgLCANCiAgICB5bGFiPSJrw7ZycGVybGljaGVzIFdvaGxiZWZpbmRlbiIgLCB4bGFiPSItIFRyYWluaW5nc3RhdHVzIC0iKQ0KYGBgDQoNCg0KDQpgYGB7cn0NCmdncGxvdCh1LCANCiAgICAgICBhZXMoeCA9VHJhaW5pbmdzdGF0dXMsDQogICAgICAgICAgIHkgPSBrV29obGJlZmluZGVuKSkgKw0KICBnZW9tX2JveHBsb3QoKSArDQogIHRoZW1lKHBhbmVsLmJhY2tncm91bmQgPSBlbGVtZW50X3JlY3Qoc2l6ZSA9IDAuNSwgZmlsbCA9ICJncmV5IiwgY29sb3VyID0gImRhcmtncmV5IiwgbGluZXR5cGU9J3NvbGlkJykNCiAgICAgICAgKSsNCiAgbGFicyh5PSJrw7ZycGVybGljaGUgV29obGJlZmluZGVuIiwgeCA9ICJUcmFpbmluZ3N0YXR1cyIpDQoNCg0KYGBgDQoNCg0KDQoNCg0KDQoNCiMgRGVza3JpcHRpdmUgU3RhdGlzdGlrDQoNCmBgYHtyfQ0KbGlicmFyeShkcGx5cikNCnUgJT4lDQpncm91cF9ieShUcmFpbmluZ3N0YXR1cykgJT4lDQogIHN1bW1hcml6ZShBbnphaGwgPSBuKCksIE1lZGlhbiA9IG1lZGlhbihrV29obGJlZmluZGVuKSkgJT4lDQogIG11dGF0ZV9pZihpcy5udW1lcmljLCByb3VuZCwgMikNCmBgYA0KDQoNCiMgQWx0ZXJuYXRpdiANCg0KYGBge3J9DQpsaWJyYXJ5KHBzeWNoKQ0KZGVzY3JpYmUuYnkodSRrV29obGJlZmluZGVuLCBncm91cCA9IHUkVHJhaW5pbmdzdGF0dXMsIG1hdCA9IFRSVUUpDQpgYGANCg0KRXMgaXN0IHp1IGVya2VubmVuLCBkYXNzIHNpY2ggZGVyIE1lZGlhbiBkZXIgYmVpZGVuIEdydXBwZW4gdW50ZXJzY2hlaWRldC4gDQpEaWUgR3J1cHBlICJ1bnRyYWluaWVydGUgVGVpbG5laG1lciIgaGFiZW4gZWluZW4gTWVkaWFuIHZvbiAzNSB1bmQgZGllIFRlaWxuZWhtZXIgImd1dCB0cmFpbmllcnQiIGhhYmVuIGVpbmVuIE1lZGlhbiB2b24gNTguNS4gRGFtaXQgZsO8aGxlbiBzaWNoIGRpZSBndXQgdHJhaW5pZXJ0ZW4gVGVpbG5laG1lciBrw7ZycGVybGljaCB3b2hsZXIgYWxzIGRpZSBUZWlsbmVobWVyLCBkaWUgdW50cmFpbmllcnQgc2luZC4gDQoNCg0KDQojIEVyZ2Vibmlzc2UgZGVzIE1hbm4tV2hpdG5leS1VLVRlc3RzDQoNCkluIFIgZ2lidCBlcyBkZW4gYXN5bXB0b3Rpc2NoZSBTaWduaWZpa2FueiBhdXMsIGFscyBhdWNoIGVpbmUgZXhha3RlIFNpZ25pZmlrYW56LiBJbiBBYmjDpG5naWdrZWl0IHZvbiBkZXIgU3RpY2hwcm9iZW5ncsO2c3NlIHdpcmQgZGVyIGVpbmUgb2RlciBhbmRlcmUgV2VydCBiZXJpY2h0ZXQ6DQoNCiMjIyBJc3QgZGllIFN0aWNocHJvYmUgaGlucmVpY2hlbmQgZ3Jvc3MgKG4xICsgbjIgPiAzMCksIHNvIHdpcmQgZGllIGFzeW1wdG90aXNjaGUgU2lnbmlmaWthbnogdmVyd2VuZGV0Lg0KDQpgYGB7cn0NCndpbGNveC50ZXN0KHUka1dvaGxiZWZpbmRlbn4gdSRUcmFpbmluZ3N0YXR1cywgZXhhY3QgPSBGQUxTRSkNCg0KYGBgDQoNCiMjIyBJc3QgZGllcyBuaWNodCBkZXIgRmFsbCwgc28gd2lyZCBkaWUgZXhha3RlIFNpZ25pZmlrYW56IHZlcndlbmRldC4NCg0KYGBge3J9DQp0ZXN0d2lsPC0gIHdpbGNveC50ZXN0KHUka1dvaGxiZWZpbmRlbn4gdSRUcmFpbmluZ3N0YXR1cykNCnRlc3R3aWwNCmBgYA0KDQpEZXIgVW50ZXJzY2hpZWQgendpc2NoZW4gZGVuIEdydXBwZW4gaXN0IHNpZ25pZmlrYW50IChXID0gMTAxLCBwID0gLjAxNSwgbiA9IDIzKS4gDQoNCiMgQmVyZWNobnVuZyBkZXIgRWZmZWt0c3TDpHJrZQ0KDQokJHI9XGxlZnRcfCBcZnJhY3t6fXtcc3FydHtufX0gXHJpZ2h0XHwkJA0KDQoNCg0KDQoNCmBgYHtyfQ0KWnN0YXQ8LXFub3JtKHRlc3R3aWwkcC52YWx1ZS8yKQ0Kc3ByaW50ZigiWi1XZXJ0IGbDvHIgZGVuIFUtVGVzdCA6ICUuMmYiLCBac3RhdCkNCmRhdGVuIDwtIG5yb3codSkNCnNwcmludGYoIkFuemFobCBkZXIgRGF0ZW46ICUuZiIsIGRhdGVuKQ0KZWZmIDwtIGFicyhac3RhdC9zcXJ0KGRhdGVuKSkNCnNwcmludGYoIkVmZmVrdHN0w6Rya2U6ICUuMmYiLCBlZmYpDQpgYGANCg0KDQoNClp1ciBCZXVydGVpbHVuZyBkZXIgR3JvZXNzZSBkZXMgRWZmZWt0ZXMgZGllbnQgZGllIEVpbnRlaWx1bmcgdm9uIENvaGVuICgxOTkyKToNCg0KJCQNClxiZWdpbnthbGlnbn0NClx0ZXh0e1NjaHdhY2hlciBFZmZla3Q6IH0gMC4xMCAmPCB8fHJ8fCA8IDAuMzAgICAgICAgICAgICAgXFwNClx0ZXh0e1NjaHdhY2hlciBiaXMgbWl0dGxlcmVyIEVmZmVrdDogfSAwLjMwICY9IHx8cnx8ICAgICAgXFwNClx0ZXh0e01pdHRsZXJlciBFZmZla3Q6IH0gMC4zMCAmPCB8fHJ8fCA8IDAuNTAgICAgICAgICAgICAgXFwNClx0ZXh0e01pdHRsZXJlciBiaXMgc3RhcmtlciBFZmZla3Q6IH0wLjUwICY9IHx8cnx8ICAgICAgICAgXFwNClx0ZXh0e1N0YXJrZXIgRWZmZWt0OiB9IDAuNTAgJjwgfHxyfHwgICAgICAgIA0KXGVuZHthbGlnbn0NCiQkDQoNCkRhbWl0IGVudHNwcmljaHQgZWluZSBFZmZla3RzdMOkcmtlIHZvbiAuNTAgZWluZW0gc3RhcmtlbiBFZmZla3QuDQoNCg0KDQojIEVpbmUgQXVzc2FnZQ0KDQpFcyBnaWJ0IGVpbmVuIHNpZ25pZmlrYW50ZW4gVW50ZXJzY2hpZWQgendpc2NoZW4gZGVuIEdydXBwZW4gdW5kIGRlbSBXb2hsYmVmaW5kZW4gLSBNYW5uLVdoaXRuZXktVS1UZXN0IChXID0gMTAxLCBwID0gLjAxNSkuIEd1dCB0cmFpbmllcnRlIFRlaWxuZWhtZXIgd2Vpc2VuIGVpbiBow7ZoZXJlcyBrw7ZycGVybGljaGVzIFdvaGxiZWZpbmRlbiBhdWYgKE1lZGlhbiA9IDU4LjUsIE4gPSAxNCkgYWxzIGRpZSB1bnRyYWluaWVydGVuIFRlaWxuZWhtZXIgKE1lZGlhbiA9IDM1ICwgTiA9IDkpLiBNYW5uLVdoaXRuZXktVS1UZXN0IChXID0gMTAxLCBwID0gLjAxNSkuIERpZSBFZmZla3RzdMOkcmtlIG5hY2ggQ29oZW4gKDE5OTIpIGxpZWd0IGJlaSByID0gMC41IHVuZCBlbnRzcHJpY2h0IGVpbmVtIHN0YXJrZW4gRWZmZWt0LiBIMCBrYW5uIHZlcndvcmZlbiB3ZXJkZW4uDQoNCg0KKipLb21wYWt0Kio6IEd1dCB0cmFpbmllcnRlIFRlaWxuZWhtZXIgd2Vpc2VuIGVpbiBzaWduaWZpa2FudCBow7ZoZXJlcyBrw7ZycGVybGljaGVzIFdvaGxiZWZpbmRlbiBhdWYgKE1lZGlhbiA9IDU4LjUsIE4gPSAxNCkgYWxzIGRpZSB1bnRyYWluaWVydGVuIFRlaWxuZWhtZXIgKE1lZGlhbiA9IDM1ICwgTiA9IDkpIC0gTWFubi1XaGl0bmV5LVUtVGVzdCAoVyA9IDEwMSwgcCA9IC4wMTUpLiBEaWUgRWZmZWt0c3TDpHJrZSBuYWNoIENvaGVuICgxOTkyKSBsaWVndCBiZWkgciA9IDAuNSB1bmQgZW50c3ByaWNodCBlaW5lbSBzdGFya2VuIEVmZmVrdC4gSDAga2FubiB2ZXJ3b3JmZW4gd2VyZGVuLg0KDQoNCg==