2.Simulacion estadistica del Ejercicio 4.2 (Esperanza,varianza,momentos centrados y no centrados)

Programa en R-Project:

> library(distr)

> library(distrEx)

> f<- function(x) exp(-x);

> #Definimos la distribucion continua X a partir de la funcion
 densidad

> X <- AbscontDistribution(d = f, low1 = 0)


> #Calculamos la esperanza de X

> E(X)
[1] 0.9999946

> #Calculamos la desviacion tipica de X

> sd(X)
[1] 0.9999768

> #Calculamos la esperanza E(Y), y=2x+1
 
> E(X,fun = function(x){2*x+1})
[1] 2.998038

> #Calculamos la desviacion tipica de Y

> sd(X,fun = function(x){2*x+1})
[1] 2.002391

> #Calculamos el momento no centrado de orden 2 de X


> E(X,fun = function(x){x^2})
[1] 1.999943

> #Calculamos el momento centrado de orden 2 de X

> E(X,fun = function(x){(x-E(X))^2})
[1] 0.9980022

> #Calculamos el momento centrado de orden 3 de X

> E(X,fun = function(x){(x-E(X))^3})
[1] 2.001181