#Modelo Binomial Suponga que se tiene un parcial 2 de 14 peguntas una con cuatro opciones y una correcta. Sea la variable \(X:\)Número de respuestas correctas en un exámen de 14 preguntas \(x\sim binomial (n=14, p=0.25)\)

Examenes=rbinom(35,14,0.25)
barplot(table(Examenes),xlab="Numero de respuestas correctas", ylab="Cantidad de estudiantes", ylim=c(0,14))

summary(Examenes)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   0.000   2.500   4.000   3.629   5.000   7.000
Calificacion=(5/14)*Examenes

De acuerdo con las calificaciones el promedio estaría en 1.3

boxplot(Calificacion, col = "gray89", horizontal = TRUE)

##Modelo Possion \(Y\): El número de personas que ingresan a univalle por hora. $YPoisson()

visitantes=rpois(24,100)
barplot(table(visitantes))

¿Cuál es la probabilidad de que ingresen a Univalle 100 personas o más por hora?

La probabilidad de que ingrese a univalle 100 personas o más por hora 0.5132988

Sea \(W \sim Normal(\mu=25000,\sigma=50000)\)

Ingresos=rnorm(10000,25000,50000)
hist(Ingresos, xlab="Igresos Mensuales", ylab="Cantidad de estudiantes")

¿Cuál es la probablidad de que el ingreso mensual es superior a 30.000?

La probabilidad de que el ingreso mensual sea superior a 30.000 es de 0.4601722.