2.Varianza de una variable continua

> #integramos entre los valores 0 y 1 f1(x)=(x-media)*f(x) para
 calcular la media o esperanza E(x)

> f1<- function(x) (2*(x+1)/3)*x;

>media <- integrate(f1,lower=0,upper=1)
0.5555556 with absolute error < 6.2e-15

>media1<- 0.5555556

> f2<- function(x) (2*(x+1)/3)*(x-media1)^2;

> #Calculamos la varinza de la variable continua 


>integrate(f2,lower=0,upper=1)
0.08024691 with absolute error < 8.9e-16

> 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 varianza de la variable continua X

> var(X)
[1] 0.08026499