Simulace mnoha iterací von Neumannova modelu
Teď využijeme funkci one_round, kterou jsme napsali v předchozím cvičení, a nasimulujeme 10 000 iterací pro případ, kdy strategie hráče B spočívá v sázení právě tehdy, když jeho hodnota přesahuje 0,5. Naším cílem bude odhadnout střední hodnotu výhry hráče B při této strategii.
Toto cvičení je součástí kurzu
Probability Puzzles in R
Pokyny k cvičení
- Doplň řádek tak, aby proběhla jedna iterace, ve které hráč B sází, pokud jeho hodnota přesahuje 0,5, a výsledek ulož do
b_win. - Vypočítej a zobraz střední hodnotu výhry hráče B při této strategii.
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
b_win <- rep(NA, 10000)
for(i in 1:10000){
# Run one and store result
}
# Print expected value