Actividad 1

Pregunta #1

# Parámetros
n <- 12       # tamaño de la muestra
p <- 0.40  # probabilidad de que un estudiante NO estudie
q <- 0.60  # probabilidad de que SÍ estudie

# a) Probabilidad de que como mucho 3 no estudien
a <- pbinom(3, n, p)
a

## [1] 0.2253373

# b) Probabilidad de que a lo más 8 sí estudien
# Equivalente a que como mínimo 4 no estudien
b <- pbinom(8, n, q)
b

## [1] 0.7746627

# c) Probabilidad de que al menos 5 sí estudien
# 1 - P(X <= 4)
c <- 1 - pbinom(4, n, q)
c

## [1] 0.9426901

Pregunta #2

# Probabilidad de al menos 5 llamadas en 9 minutos
p <- 1 - ppois(4, 6)
p

## [1] 0.7149435