[adsense:responsibe:9545213979]
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
Comentarios recientes