Mensaje de error

  • Warning: include_once(): http:// wrapper is disabled in the server configuration by allow_url_include=0 en include_once() (línea 52 de /home1/montes/public_html/drupal/modules/php/php.module(80) : eval()'d code).
  • Warning: include_once(http://cajael.com/publ/regulacion/examenesE46815.php): failed to open stream: no suitable wrapper could be found en include_once() (línea 52 de /home1/montes/public_html/drupal/modules/php/php.module(80) : eval()'d code).
  • Warning: include_once(): Failed opening 'http://cajael.com/publ/regulacion/examenesE46815.php' for inclusion (include_path='.:/opt/cpanel/ea-php74/root/usr/share/pear') en include_once() (línea 52 de /home1/montes/public_html/drupal/modules/php/php.module(80) : eval()'d code).
  • 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).

5.2 Simulacion estadistica de las varianzas de las distribuciones marginales del Ejercicio 1.5

Solapas principales

Enviado por Anónimo (no verificado) en Jue, 12/12/2013 - 15:49
[adsense:336x280:9156825571]
  • Simulacion estadistica de la varianza de las distribuciones marginales de x e y con R-Project  
    x1<- c(rep(15,4),rep(20,3),rep(25,1),rep(15,1),rep(20,4),rep(25,7));
y1<- c(rep(5,4),rep(5,3),rep(5,1),rep(10,1),rep(10,4),rep(10,7));
x2<- (x1-15)/5;
y2<- (y1-5)/5;
ni<- table(x1);
n<-sum(ni);

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

[1] 15.6875

vy1 <-var(y1)*(n-1)/n
vy1
[1] 6

vx2 <-var(x2)*(n-1)/n
vx2
[1] 0.6275

vy2 <-var(y2)*(n-1)/n
vy2
[1] 0.24

vy2*5^2
[1] 6

vx2*5^2
[1] 15.6875
  • Simulacion estadistica de la varianza de las distribuciones marginales de x e y con Mathematica

     

    x1 := Join[ConstantArray[15,4],ConstantArray[20,3], 
   ConstantArray[25,1],ConstantArray[15,1],ConstantArray[20,4], 
   ConstantArray[25,7]];

y1 := Join[ConstantArray[5,4],ConstantArray[5,3], 
   ConstantArray[5,1],ConstantArray[10,1],ConstantArray[10,4], 
   ConstantArray[15,7]];    

    x2:=(x1-15)/5;
y2:=(y1-5)/5; 
   
ni := Tally [x1];

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

vx1:=(Variance[x1] (n - 1))/n;
vx2:=(Variance[x2] (n - 1))/n;
vy1:=(Variance[y1] (n - 1))/n;
vy2:=(Variance[y2] (n - 1))/n;


N[vx1]
N[vx2]
N[vy1]
N[vy2]
N[vx2 5^2]
N[vy2 5^2]


15.6875
0.6275
18.6875
0.7475
15.6875
18.6875




Tags:

Español
Pin It