Utilizando la distribución binomial

Hay 30 preguntas de 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.25))

## [1] 0.03744933

#La probabilidad de que obtenga 3 respuestas correctas es muy baja.

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

#La cantidad de respuestas correctas que se pueden sacar son 7, es la que tiene una probabilidad de poco mas de 15%