Dział kontroli jakości sieci spożywczej Żabka w Polsce co miesiąc przeprowadza kontrolę porównania zeskanowanych cen z zaksięgowanymi. Poniższy wykres podsumowuje wyniki próby 500 pozycji w zeszłym miesiącu. Kierownictwo firmy chciałoby wiedzieć, czy istnieje jakikolwiek związek między stopniem błędu w przypadku pozycji o regularnej cenie a pozycji o specjalnej cenie. Użyj poziomu istotności 0,01.
Cena regularna Cena specjalnaZaniżona 20 10 Zawyżona 15 30 Prawidłowa 200 225
h0 = nie ma związku między stopniem błędu w przypadku pozycji o regularnej cenie a pozycji o specjalnej cenie h1 = jezst związek między stopniem błędu w przypadku pozycji o regularnej cenie a pozycji o specjalnej cenie
macierz<-matrix(c(20,15,200,10,30,225),3,2)
macierz## [,1] [,2]
## [1,] 20 10
## [2,] 15 30
## [3,] 200 225chisq.test(macierz)##
## Pearson's Chi-squared test
##
## data: macierz
## X-squared = 8.0328, df = 2, p-value = 0.01802p-value > 0,01 -> przyjmujemy h0