/PUIJOH IBQQFOT VOUJM XF DBMM UIF GVODUJPO CZ JUT OBNF
3 DPEF
sim_globe()
[1] "L" "W" "W" "W" "L" "L" "L" "W" "L"
3FQFBU DBMMJOH UIF GVODUJPO UP TFF UIBU JU TJNVMBUFT B EJČFSFOU TBNQMF FBDI UJNF "OE CZ
OBNJOH UIF QSPQPSUJPO PG XBUFS p BOE OVNCFS PG UPTTFT N JO UIF GVODUJPO EFĕOJUJPO
XF DBO
FBTJMZ DIBOHF UIFTF WBMVFT XIFO XF DBMM UIF GVODUJPO
replicate(sim_globe(p=0.5,N=9),n=10)
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,] "W" "L" "L" "W" "W" "L" "L" "W" "W" "L"
[2,] "W" "L" "W" "L" "W" "L" "L" "W" "L" "L"
[3,] "W" "L" "L" "L" "L" "W" "L" "W" "W" "W"
[4,] "W" "W" "L" "W" "L" "W" "W" "W" "W" "W"
[5,] "L" "W" "W" "W" "W" "W" "L" "W" "L" "L"
[6,] "L" "W" "L" "L" "W" "L" "W" "W" "W" "W"
[7,] "W" "W" "W" "L" "W" "W" "W" "L" "L" "L"
[8,] "L" "W" "L" "L" "L" "W" "L" "W" "W" "W"
[9,] "W" "L" "L" "W" "L" "W" "W" "W" "L" "L"