Skip to content

Instantly share code, notes, and snippets.

@arq5x

arq5x/sim.R

Created Feb 3, 2016
Embed
What would you like to do?
Binomial coin toss simulation
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