# LABORATORIO DIRIGIDO #2 - PREGUNTA 9
# Sea X una variable aleatoria continua, que tiene una
# función densidad f(x) = 3x^2, 0 < x < 1.
# Encuentra P(0.14 ≤ X ≤ 0.71). Calcule también E(X) y Var(X).
# Sugerencia: Usa el paquete distr y distrEx.
require(distr)
require(distrEx)
funcionDensidad <- function(x) {
ifelse(x>=0 & x<=1, 3*(x^2), 0)
}
distX <- UnivarLebDecDistribution( d = RtoDPQ(density_function, qbd) )
probabilidad <- P(distX, c(0.14, 0.71))
print(probabilidad)
esperanza <- E(distX)
print(esperanza)
varianza <- Var(distX)
print(varianza)
