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
Comentarios recientes