x=c(0,1)
toss=sample(x,10,replace=TRUE)
sum(toss)
sum(toss)/length(toss)

toss=sample(x,100,replace=TRUE)
sum(toss)/length(toss)

toss=sample(x,10000,replace=TRUE)
sum(toss)/length(toss)