[adsense:responsibe:9545213979]
> #integramos entre los valores 0 y 1 f1(x)=x*f(x) para calcular la media o esperanza E(x) > f1<- function(x) (2*(x+1)/3)*x; > integrate(f1,lower=0,upper=1) 0.5555556 with absolute error < 6.2e-15
> library(distr) > library(distrEx) > f<- function(x) 2*(x+1)/3; > #Definimos la distribucion continua X a partir de la funcion densidad > X <- AbscontDistribution(d = f, low1 = 0, up1 = 1) > #Calculamos la media o esperanza > E(X) [1] 0.5
0
Comentarios recientes