Utilizando la distribución binomial.

Hay 30 preguntas se selección múltiple, cada pregunta tiene 4 opciones, estime la probabilidad de obtener al menos 3 respuestas correctas suponiendo que se responden enteramente al azar. Realice la estimación y su gráfico correspondiente.

sum(dbinom(x=0:3, size=30, prob=0.2 ))
## [1] 0.1227108

Ahora, conoceremos la probabilidad de tener más de 3 preguntas buenas.

pbinom(3, size=30, prob=0.2, lower.tail = FALSE)
## [1] 0.8772892

Ahora, viendo esto a manera de gráfica

barplot(dbinom(x=0:30, size=30, prob=0.2), names.arg = 0:30)