David,

set.seed(123)  # always good to make reproducible 
winnings <- sum(sample(c(-1,1), 10000, replace=TRUE)) 

Unfortunately, that's not the game. The game requires 40 flips of a coin.

Then you have to play the game 10,000 times.

D.



--
View this message in context: 
http://r.789695.n4.nabble.com/Head-or-Tails-game-tp4639142p4639145.html
Sent from the R help mailing list archive at Nabble.com.

______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Reply via email to