Binomial coin toss simulation

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")