a<-rbinom(500,1,0.5)
b<-1:tosses
c<-cumsum(a)
d<-c/b

jpeg('rplot10.jpg')
plot(d,col="Blue",ylim=c(0,1),type = "l",
     xlab="Number of Times Coin Was Tossed (Sample Size)", ylab="Probability of Heads",
     lwd=3,main = "Experiement # 10")
abline(h=0.5,col="Orange",lwd=3)
dev.off()