#Bar Plots for Binomial(n,p) distribution.
#
par(mfrow=c(2,2))
n=2
p=.5
barplot(dbinom(0:n,n,p),names=(0:n))
title(main="n=2, p=.5")
#
n=10
p=.8
barplot(dbinom(0:n,n,p),names=(0:n))
title(main="n=10, p=.8")
#
n=50
p=.5
barplot(dbinom(0:n,n,p),names=(0:n))
title(main="n=50, p=.5")
#
n=50
p=.1
barplot(dbinom(0:n,n,p),names=(0:n))
title(main="n=50, p=.1")
#
title(main="
Binomial (n,p) Distribution",outer=T)