Indicaciones Para La Actividad

Bajo El Contexto De:

• Un servicio de transporte tarda 20 minutos en viajar desde la parada A hasta la parada B. El servicio de transporte viaja entre las paradas A y B continuamente durante todo el día. ¿Cuál es la probabilidad de que una persona en la parada A espere más de 8 minutos a que llegue el transbordador?

Nota: Sea X una variable aleatoria continua que representa el tiempo de espera de un transbordador.

Interpretación Gráfica

La Densidad O Altura

Sean a y b los intervalos correspondientes, teniendo valores de:

• a <- 0 minutos

• b <- 20 minutos

Densidad <- dunif(10, min = 0, max = 20)
Densidad

[1] 0.05

paste("La Densidad es de", Densidad, ".")

[1] "La Densidad es de 0.05 ."

Probabilidad De Intervalo

Sean a y b los intervalos correspondientes, teniendo valores de:

• a <- 0 minutos

• b <- 20 minutos

ProbabilidadI <- punif(8, min = 0, max = 20)
ProbabilidadI <- 1-ProbabilidadI
paste("La Probabilidad De Los Intevalos es de", (ProbabilidadI *100), "%")

[1] "La Probabilidad De Los Intevalos es de 60 %"

El Valor Esperado

Sean a y b los intervalos correspondientes, teniendo valores de:

• a <- 0 minutos

• b <- 20 minutos

a.min <- 0 
b.max = 20 
ValorEsperado <- (a.min + b.max) / 2  
ValorEsperado

[1] 10

paste("El Valor Esperado es de", ValorEsperado, ".")

[1] "El Valor Esperado es de 10 ."

La Varianza

Sean a y b los intervalos correspondientes, teniendo valores de:

• a <- 0 minutos

• b <- 20 minutos

a.min <- 0
b.max = 20 
Varianza <- (b.max - a.min)^2 / 12  
Varianza

[1] 33.33333

paste("La Varianza es de ", Varianza, ".")

[1] "La Varianza es de  33.3333333333333 ."

La Desviación Estándar

Sean a y b los intervalos correspondientes, teniendo valores de:

a <- 8 minutos b <- 20 minutos

des.est <- sqrt(Varianza)  
des.est

[1] 5.773503

paste("La Desviación Estándar es de ", des.est, ".")

[1] "La Desviación Estándar es de  5.77350269189626 ."