################################################################################ ## Nominalskalierte Merkmale, binär (dichotom) ausgeprägt, Vierfeldertafel und ## Chi2-Test ## ## Skript zum Video "Vierfeldertafel mit R" ## ## Ad-Oculos-Projekt, https://www.faes.de/ad-oculos/ ## Günter Faes ## Version 1.0, 17.12.2021 ## R-Version: 4.1.1 ## RStudio-Version: 2021.09.0 Build 351 ## ## Siehe auch das Video "Chi2 Anpassungstest" ################################################################################ # Daten erzeugen: # Die Beobachtungen werden direkt als Matrix eingegeben und über dimnames # die Bezeichungen hinzugefügt: Daten <- matrix(c(73, 35, 86, 24), nrow = 2 , ncol = 2, byrow = TRUE, dimnames = list(c("Medikament_A", "Medikament_B"), c("ja", "nein"))) Daten ## Testdurchführung: Ergebnis <- chisq.test(Daten, correct = FALSE); Ergebnis # Interpretationshilfe: a <- 0.05 # Signifikanzniveau alpha 5% (Zweiseitiger Test) P <- 1 - a # Wahrscheinlichkeit df <- 1 # Freiheitsgrad einer Vierfeldertafel ist 1 Chi_krit <- qchisq(P, df); Chi_krit # Die Nullhypothese kann nicht verworfen werden! # p-value = 0.0785 > a # X-squared = 3.0957 < Chi2_krit # Ein tieferer Einblick: str(Ergebnis) Ergebnis$expected ## Skript Ende