x1=sqrt(10)*runif(10, -sqrt(3), sqrt(3) )
x2=sqrt(1)*runif(10, -sqrt(3), sqrt(3) )
x3=sqrt(1)*runif(10, -sqrt(3), sqrt(3) )
x4=sqrt(1)*runif(10, -sqrt(3), sqrt(3) )
equa4vartest(x1,x2,x3, x4, a=0.05, B=500)
equa4vartest(rexp(10) ,rexp(10) ,rexp(10) , rexp(10), a=0.01, B=1000)
Run the code above in your browser using DataLab