> out <- cbind(0:5, dbinom(0:5, 5, 3/5))
> colnames(out) <- c("x", "P(X=x)")
> out
x P(X=x)
[1,] 0 0.01024
[2,] 1 0.07680
[3,] 2 0.23040
[4,] 3 0.34560
[5,] 4 0.25920
[6,] 5 0.07776
If 60% (i.e 3/5) of the population support the mayor then when you take a random sample of 5 people and...