Mensaje de error

  • Deprecated function: The each() function is deprecated. This message will be suppressed on further calls en book_prev() (línea 775 de /home1/montes/public_html/drupal/modules/book/book.module).
  • Deprecated function: implode(): Passing glue string after array is deprecated. Swap the parameters en drupal_get_feeds() (línea 394 de /home1/montes/public_html/drupal/includes/common.inc).

2.Varianza de una variable continua

Solapas principales

[adsense:336x280:9156825571]
Hay dos formas de simularlo estadisticamente con R-Project para calcular la varianza de la variable continua X a partir de la funcion densidad f(x):
  • Primera forma integrando:

    > #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
    

     

  • Segunda forma instalando los paquetes (package) distr y distrEx:

    > 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
    

 

Español
Pin It