#################################################### ## Wilcoxon-Test ## ## Beispielskript im Rahmen des Ad-Oculos-Projekts ## Günter Faes ## R-Version 3.6.3, 18.04.2020 #################################################### ## Pakete laden: library(mosaic) library(coin) ## Beispieldaten einlesen: Daten <- read.csv2("Lehrmethoden.csv") ## Deskriptive Statistik: View(Daten) inspect(Daten) ## Daten der Methoden A & B & C grafisch darstellen: ## Boxplot: boxplot(Daten, main = "Übersicht Lehrmethoden", ylab = "Erreichte Punktzahl") ## Dichteplot: plot(density(Daten$Methode_A), main = "Übersicht Lehrmethoden", xlab = "Erreichte Punktzahl", ylab = "Dichte", col = "blue", lwd = "3", xlim = c(45, 100)) lines(density((Daten$Methode_B)), col = "red", lwd = "3") lines(density((Daten$Methode_C)), col = "green", lwd = "3") legend("topleft", c("Blau: Methode A", "Rot: Methode B", "Grün: Methode C")) ################ Wilcoxon-Test-Durchführung ####################### ## Wilcoxon-Testdurchführung für ungepaarte Beobachtungen: ## In diesem Beispiel wird davon ausgegangen, dass die Beobachtungen ungepaart sind! ## alternative = "two.sided" und paired = FALSE sind voreingestellt. ## Vergleich der Lehrmethoden A & B: wilcox.test(Daten$Methode_A, Daten$Methode_B) ## Vergleich der Lehrmethoden B & C: wilcox.test(Daten$Methode_B, Daten$Methode_C) ## Wilcoxon-Testdurchführung für gepaarte Beobachtungen: ## In diesem Beispiel wird davon ausgegangen, dass die Beobachtungen gepaart sind! ## Vergleich der Lehrmethoden A & B: wilcox.test(Daten$Methode_A, Daten$Methode_B, paired = TRUE) ## Vergleich der Lehrmethoden B & C: wilcox.test(Daten$Methode_B, Daten$Methode_C, paired = TRUE) ###### Wilcoxon-Test-Durchführung bei Vorliegen von Bindungen ########## ## Wilcoxon-Testdurchführung für gepaarte Beobachtungen: ## Vergleich der Lehrmethoden A & B: wilcoxsign_test(Daten$Methode_A ~ Daten$Methode_B, distribution = "exact", alternative = "two.sided") ## Vergleich der Lehrmethoden B & C: wilcoxsign_test(Daten$Methode_B ~ Daten$Methode_C, distribution = "exact", alternative = "two.sided")