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

3.3 Simulacion estadistica del Coeficiente de variacion de Pearson del Ejercicio 1.3

Solapas principales

[adsense:336x280:9156825571]
  • Simulacion estadistica del coeficiente de variacion de Pearson con R-Project 
     x1 <- c(rep(10,5),rep(25,5),rep(35,6),rep(45,10),rep(55,38) 
    ,rep(65,30) ,rep(75,20),rep(85,4),rep(95,2));
     
    cvp <- function(x) {
    
     ni<- table(x);
    
    n<-sum(ni);
     
    m1<- mean(x);
    s1 <-sd(x)*sqrt((n-1)/n);
    cv<- s1/abs(m1);
    cv
      }
    
    cvp(x1)
    
    [1] 12.52664
    
  • Simulacion estadistica del coeficiente de variacion de Pearson con Mathematica
    x1 := Join[ConstantArray[10, 5], ConstantArray[25, 5], 
       ConstantArray[35, 6], ConstantArray[45, 10], ConstantArray[55, 38]
    , ConstantArray[65, 30], ConstantArray[75, 20], ConstantArray[85, 4]
    , ConstantArray[95, 2]];
       
    ni := Tally [x1];
    
    n := Sum[ni[[i, 2]], {i, Length[ni]}];
    
    m1:=Mean[x1]
    
    s1:=StandardDeviation[x1]  Sqrt[(n - 1)/n];
    
    cv:= (s1/Abs[m1])
    
    N[cv]
    
    0.297009
    

 

Español
Pin It