Mean of the marginal distributions

• Statistical simulation of thes Mean of the marginal distributions de x and y with 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;
  
  mx2<-mean(x2);
  mx2
  
  [1] 1.15
  
  my2<-mean(y2);
  my2
  
  [1] 0.6
  
  mx1<-mean(x1);
  mx1
  
  [1] 20.75
  
  my1<-mean(y1);
  my1
  
  [1] 8
  
  (mx1-15)/5
  
  [1] 1.15
  
  (my1-5)/5
  
  [1] 0.6
  

  
  
  
  

• Statistical simulation of thes Mean of the marginal distributions de x and y with 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;    mx1:=Mean[x1];
  my1:=Mean[y1];
  mx2:=Mean[x2];
  my2:=Mean[y2];
  N[mx1]
  N[my1]
  N[mx2]
  N[my2]
  N[(mx1-15)/5]
  N[(my1-5)/5]
  
  20.75
  9.75
  1.15
  0.95
  1.15
  0.95