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

Enviado por Anónimo (no verificado) en Jue, 12/05/2013 - 15:42
[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`

 

Tags:

Español
Pin It