Probabilidad y Variable
Aleatoria
LABORATORIO
DISTRIBUCIONES CONTINUAS
TAREA GRUPAL
Integrantes:
- Marco Antonio Andrade Rios
- Johan Gustavo Ahuate Quispe
- Edgard Marcos Vilca Urcoapaza
11/06/2024
Ejercicio de Distribución Exponencial
Con r-studio
#P[X<=399]:
rpta2a = pexp(399,1/600, lower.tail = T)
print(rpta2a)
## [1] 0.4857265
# P[X>399]:
rpta2b = pexp(399,1/600, lower.tail = F)
print(rpta2b)
## [1] 0.5142735
# P[X>=500]:
rpta2b = pexp(500,1/600, lower.tail = F)
print(rpta2b)
## [1] 0.4345982
Resolución Manual primer ejercicio de Distribución Normal
Segundo ejercicio de Distribución Normal
Resolución con Rstudio
Planteamiento:
# Parámetros de la distribución normal
mu <- 50
sigma <- 10
# Parte a: Probabilidad de que la demanda esté entre 46 y 54
kilogramos
p_a <- pnorm(54, mu, sigma) - pnorm(46, mu, sigma)
p_a
Respuesta:
## [1] 0.3108435
Planteamiento:
# Parte b: Cantidad del producto para satisfacer el 89.8% de los meses
q_b <- qnorm(0.898, mu, sigma)
q_b
Respuesta:
## [1] 62.70238
Planteamiento:
# Parte c: Probabilidad de que la utilidad diaria supere los 170 soles
# Utilidad U = 2.4X + 20, se requiere U > 170
# Primero resolver para X:
X_required <- (170 - 20) / 2.4
p_c <- 1 - pnorm(X_required, mu, sigma)
p_c
Respuesta:
## [1] 0.1056498
Planteamiento:
# Parte d: Probabilidad de que la demanda total de 3 días supere los
116 kilogramos
mu_T <- 3 * mu
sigma_T <- sqrt(3) * sigma
p_d <- 1 - pnorm(116, mu_T, sigma_T)
p_d
Respuesta:
## [1] 0.9751764
Planteamiento:
# Parte a: Calcular la desviación estándar si el 6.68% de ellos
obtienen menos de 59 puntos
# Parámetros conocidos
mu <- 80
p <- 0.0668
x <- 59
# Encontrar el valor z correspondiente a la probabilidad acumulada de
0.0668
z <- qnorm(p)
# Resolver para la desviación estándar sigma
sigma <- (x - mu) / z
sigma
Respuesta:
## [1] 13.99948
Planteamiento:
# Parte b: Puntaje máximo para estar en el cuarto inferior y puntaje
mínimo para estar en el cuarto superior
# Encontrar el puntaje para el primer cuartil (Q1)
p_Q1 <- 0.25
z_Q1 <- qnorm(p_Q1)
Q1 <- mu + z_Q1 * sigma
Q1
# Encontrar el puntaje para el tercer cuartil (Q3)
p_Q3 <- 0.75
z_Q3 <- qnorm(p_Q3)
Q3 <- mu + z_Q3 * sigma
Q3
Respuesta:
Q1
## [1] 70.55749
Q3
## [1] 89.44251
Planteamiento:
# Parte c: Número de alumnos entre el cuartil 1 y el cuartil 3
# Número total de alumnos
total_alumnos <- 120
# Probabilidad de estar entre Q1 y Q3
prob_Q1_Q3 <- p_Q3 - p_Q1
# Número de alumnos entre Q1 y Q3
alumnos_Q1_Q3 <- total_alumnos * prob_Q1_Q3
alumnos_Q1_Q3
Respuesta:
## [1] 60
