Mensaje de error

  • Deprecated function: The each() function is deprecated. This message will be suppressed on further calls en menu_set_active_trail() (línea 2394 de /home1/montes/public_html/drupal/includes/menu.inc).
  • 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).

1.4 Simulacion estadistica de la varianza del Ejercicio 1.1

Solapas principales

[adsense:336x280:9156825571]

En los programas de simulacion utilizan la siguiente varianza:

 

\begin{displaymath}V(x)=\sum^{k}{\frac{n_{i}\cdot (x_{i}-\overline{x})^2}{n-1}}\end{displaymath}

 

Cuando en el ejercicio se utiliza esta varianza:

\begin{displaymath}V(x)=\sum^{k}{\frac{n_{i}\cdot (x_{i}-\overline{x})^2}{n}}\end{displaymath}

 

La solucion es multiplicar la varianza de la simulacion por:

\begin{displaymath}V(x)=\sum^{k}{\frac{n_{i}\cdot (x_{i}-\overline{x})^2}{n-1}}\cdot \frac{n-1}{n}\end{displaymath}

 

  • Simulacion estadistica de la varianza con R-Project

    > x <- c(rep(47,1),rep(48,3),rep(49,2),rep(50,8),rep(51,3),rep(52,2)
    ,rep(53,1));
    
    > ni<- table(x);
    
    
    > n<-sum(ni)
    
    > var(x)*(n-1)/n
    
    [1] 2.1475
    

     

  • Simulacion estadistica de la varianza con Mathematica

    x := Join[ConstantArray[47, 1], ConstantArray[48, 3], 
       ConstantArray[49, 2], ConstantArray[50, 8], ConstantArray[51, 3], 
       ConstantArray[52, 2], ConstantArray[53, 1]];
       
    ni := Tally [x];
    
    n := Sum[ni[[i, 2]], {i, Length[ni]}];
    
    (Variance[x] (n - 1))/n;
    
    N[%]
    
    2.1475`
    
    

 

Español
Pin It