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).

2.2 Simulacion estadistica de la varianza del Ejercicio 1.2

Solapas principales

Enviado por Anónimo (no verificado) en Dom, 12/08/2013 - 16:34
[adsense:336x280:9156825571]
  • Simulacion estadistica de la varianza con R-Project  
     x1 <- c(rep(15,2),rep(30,4),rep(40,10),rep(50,10),rep(60,3),rep(75,1));
 x2 <- (x1-40)/5;
ni<- table(x1);

n<-sum(ni)

v1 <-var(x1)*(n-1)/n

v1
[1] 156.9167

    v2 <- var(x2)*(n-1)/n
v2
[1] 6.276667

v2*5^2
[1] 156.9167
  • Simulacion estadistica de la varianza con Mathematica  
    x1 := Join[ConstantArray[15, 2], ConstantArray[30, 4], 
   ConstantArray[40, 10], ConstantArray[50, 10], ConstantArray[60, 3], 
   ConstantArray[75, 1]];
x2 := (x1-40)/5;
   
ni := Tally [x1];

n := Sum[ni[[i, 2]], {i, Length[ni]}];

v1:=(Variance[x1] (n - 1))/n;
v2:=(Variance[x2] (n - 1))/n;

N[v1]
N[v2]
N[v2 5^2]


156.91666666666666`
6.276666666666666`
156.91666666666666`

 

Tags:

Español
Pin It