Ejercicio 2

Parámetros dados

n <- 25  # Tamaño de la muestra
x_barra <- 2800  # Consumo promedio de la muestra
sigma_muestral <- 280  # Desviación estándar muestral
mu <- 2700  # Valor para el cual se quiere calcular la probabilidad

Calcular la desviación estándar de la distribución muestral

sigma <- sigma_muestral / sqrt(n)

Calcular el puntaje Z

Z <- (mu - x_barra) / sigma

Calcular la probabilidad utilizando la función de distribución acumulada

probabilidad <- pnorm(Z)

Imprimir la probabilidad

print(probabilidad)
## [1] 0.03707277

Ejercicio 3

Datos proporcionados

consumo <- c(710, 732, 654, 760, 774, 675, 757, 718, 814, 755, 736, 774, 768, 770, 677, 747, 823, 660, 797, 796)

Calcular la media muestral

media <- mean(consumo)

Calcular la desviación estándar muestral

desviacion <- sd(consumo)

Tamaño de la muestra

n <- length(consumo)

Valor para el cual se quiere calcular la probabilidad

valor <- 745

Calcular el puntaje Z

Z <- (valor - media) / (desviacion / sqrt(n))

Calcular la probabilidad utilizando la función de distribución acumulada

probabilidad <- 1 - pnorm(Z)

Imprimir la probabilidad

print(probabilidad)
## [1] 0.4946017