Tarea

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.

Primero calculamos la posibilidad de tener al menos 3 respuestas correctas

sum(dbinom(x=0:3, size=30, prob=0.25 )) #Se coloca la x de 0 a 3  que es la sumatoria de las probabilidades que buscamos, luego el tamaño de 30 haciendo referencia a laa preguntas y al final la probabilidad de obtenerla correcta a partir del numero de preguntas, en este caso de 25%

## [1] 0.03744933

En el siguiente codigo calculamos la posibilidad de tener más de 3 respuestas correctas, que concuerda con el resultado de tener al menos 3 respuestas correctas, al sumar el porcentaje nos da 100%

pbinom(3, size=30, prob=0.25, lower.tail = FALSE) #En este caso se hace lo opuesto dando falso al ultimo comando para buscar la probabilidad opuesta a la anterior, que son mas de 3 respuestas correctas.

## [1] 0.9625507

A continuacion se presenta el grafico de probabilidad del cual se puede deducir que el escenario mas probable dando respuestas al azar es de 7 respuestas correctas.

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

xfun::embed_file("Tarea distribucion binomial.Rmd")