the number of successes in a sequence of independent yes/no experiments (Bernoulli trials)
toss a coin
library(plotrix)
par(mar = rep(1, 4))
for (i in seq(0, 4, length = 30)) {
plot(c(-10,10), c(-10,10), type="n", main="flip coin")
draw.ellipse(x= c(0), y= c(0), c(4), c(i), border = 'black', lwd = 2)
}
for (i in seq(4, 0, length = 30)) {
plot(c(-10,10), c(-10,10), type="n", main="flip coin")
draw.ellipse(x= c(0), y= c(0), c(4), c(i), border = 'black', lwd = 2)
}