Simulacion estadistica

• Simulacion estadistica del histograma 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;
  hist(x1, col="blue", breaks=c(5,25,35,45,55,65,85),xaxt = "n"
  ,freq=TRUE)
  
  axis(1,c(5,15,25,35,45,55,65,75,85))

• Simulacion estadistica de la Desviacion Tipica 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)
  
  s1 <-sd(x1)*sqrt((n-1)/n)
  
  s1
  [1] 12.52664
  

  s2 <- sd(x2)*sqrt((n-1)/n)
  s2
  [1] 2.505328
  
  s2*5
  [1] 12.52664

• 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 de la Desviacion Tipica 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));
   
   ni<- table(x1);
  n<-sum(ni);
  

  s1 <-sd(x1)*sqrt((n-1)/n)
  s1
  [1] 12.52664

• Simulacion estadistica de la media 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));
  
  
  m1 <- mean(x1)
  

  m1
  [1] 57.54167

• Simulacion estadistica de la media con Mathematica

  x1 := Join[ConstantArray[10, 5], ConstantArray[25, 5], 

En los programas de simulacion utilizan la siguiente varianza:

• Simulacion estadistica de la moda 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));
  
  > abs(sort(table(x)))
  x
  47 53 49 52 48 51 50 
   1  1  2  2  3  3  8

• Simulacion estadistica de la media 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));
  
  > mean(x)
  
  [1] 49.95

• Simulacion estadistica de la media con Mathematica

  x := Join[ConstantArray[47, 1], ConstantArray[48, 3], 

1 Simulacion estadistica de la mediana 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));
> median(x)
[1] 50

2 Simulacion estadistica de la mediana con Mathematica

Simulaciones de Estadistica descriptiva con R-Project y Mathematica: Mediana, Moda, Media, Varianza, Desviacion Tipica, Histograma, Coeficiente de Variacion de Pearson, Vector de las medias, Coeficiente de Correlacion, Media de las Distribuciones Marginales, Varianza de las Distribuciones Marginales, Matriz de Cavarianzas