Skip to content

Instantly share code, notes, and snippets.

@arq5x

arq5x/sim.R

Created February 3, 2016 03:45
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save arq5x/942a18105a0be1352f05 to your computer and use it in GitHub Desktop.
Save arq5x/942a18105a0be1352f05 to your computer and use it in GitHub Desktop.
Download ZIP
Binomial coin toss simulation
Raw
sim.R
tosses <- 200
experiments <- 1000
hist((rbinom(experiments, tosses, 0.5) / tosses),
breaks=20, xlim=c(0,1),
main=paste("Distribution of % heads from", experiments,
"experiments with", tosses, "tosses each"),
xlab = "Fraction of tosses that were heads")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment