Kalkula daikegú, txanpon regular bat 1000 alditan botata, zéin izanen den probabilitatea on lórtu gutxienez 600 emaitza berdin (= 0.0000000002728464)

Genioén atzo:

Adibide bat: txanpon bat ikusita, akaso ez diogu antzemanen batere irregulartasunik (defektuz, espero geinke txanpon hori regularra izatea), baina 1000 aldiz botata, ateratzen badira 600 aurpegi aúrka 400 gurutze, izanen dugu evidentzia ondo sendoa aldéz irregulartasuna on txanpon hori (gauza da ze oso-oso zaila da halako emaitzak lortzea baldin txanpona regularra bada). Hortik aurrera hasi beharko ginake kolokan jartzen gure hasierako hipotesia (regulartasuna) eta hasi pensatzen ze akaso txanpon hori ez da hain regularra nola uste genuen.

Atzoko "oso-oso zaila" kuantifikatzeko, kalkula daikegú, txanpon regular bat 1000 alditan botata, zéin izanen den probabilitatea on lórtu gutxienez 600 emaitza berdin (aurpegi edo gurutze) bidéz honako operazioak an R:

1.: Ez gara sartuko gehiegi an detaileak, baina soilik esan ze kasu honetan ezagutzen dugu zéin den banaketa zehatza zeini egokitzen zaizkien emaitzak on txanpon regular bat noiz botatzen dén "n" alditan: dá banaketa binomial bat, eta ondoko R-aginduan sortzen ari gara halako funtzio binomial bat kin 1000 errepikapen ekiprobable (0.5):

binom<-function(n){dbinom(n,1000,0.5)}

2.: Behin aurreko funtzioa definituta, batu eginen ditugu probabilitatea on agértu 600 aurpegi edo gehiago, eta probabilitatea on agértu 600 gurutze edo gehiago (bi kasu horietan dauzkagu 600 emaitza berdin edo gehiago), horregatik egiten dugú bider 2:

2*(sum(unlist(lapply(600:1000,binom))))

2.728464e-10

Alegia, probabilitate hori dá 0.0000000002728464, oso-oso txikia. Bai, atzo genioenez, oso-oso zaila da lortzén horrenbeste emaitza berdin, baldin txanpona regularra bada.

[OHARRA: Ikus probabilitateá ezen aurpegien (edo gurutzen) kopurua egon dadin bitárte 450 eta 550:

sum(unlist(lapply(450:550,binom)))

0.9986083

zein jada den oso hurbil ti 1]

[1317] [>>>]