Viskasin münti 50 korda.
25 korda sain kiri ja 25 korda sain kull. (Ausalt nii ka juhtus!)
Siit tegin järelduse, et kulli esinemistõenäosus on 0.5 (50 protsenti) ja loomulikult ka kirja esinemistõenäosus on 0.5 (50 protsenti).
Oma järelduse paikapidavust võin kontrollida chisq.test’ga.
R keskkonnas saab seda teha järgmiselt:
> chisq.test(c(25,25), p=c((25/50),(25/50)))
Chi-squared test for given probabilities
data: c(25, 25)
X-squared = 0, df = 1, p-value = 1
Siit on näha, et p-value on lausa 1, mis kinnitab, et ei ole mingit põhjust minu järeldustes kahelda.
Näiteks muudame jõuga kulli ja kirja esinemistõenäosused 0.1 ja 0.9, mis on ebareaalne:
chisq.test(c(25,25), p=c(0.9,0.1))
Chi-squared test for given probabilities
data: c(25, 25)
X-squared = 88.8889, df = 1, p-value < 2.2e-16
Nagu me näeme on p-value väiksem kui 0.05, mis annab põhjust minu toodud tõenäosustel (0.1 ja 0.9) kahelda