Punkte_nach_Rep <- c(41, 48, 37, 46, 44, 55, 50, 42, 38, 35)
Punkte_vor_Rep <- c(34, 42, 36, 36, 39, 48, 38, 44, 32, 35)
Differenz <- Punkte_nach_Rep - Punkte_vor_Rep
# Test auf Normalverteilung
shapiro.test(Differenz)
#
# Hurra, die Daten sind mit der N-Vtlg verträglich, also nehme ich den t-Test
t.test( Punkte_nach_Rep, Punkte_vor_Rep, alternative = "greater",
        paired = TRUE )
# Alternative
t.test(Differenz, alternative = "greater")
# Differenz ist super signifikant nicht <=0
#
# alternativ (wir tun jetzt so, als seien die Daten nicht norm.vtlt)
#
# Wilcoxon-Vorzeichen-Rang-Test für gepaarte Beobachtungen
wilcox.test( Punkte_nach_Rep, Punkte_vor_Rep, alternative = "greater",
             paired = TRUE )
# p-Wert, falls symmetrische Vtlg. der Differenzen zum Median nicht mehr angenommen
# werden kann
1-pbinom(7,9,0.5)