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) )
equa3vartest(x1,x2,x3, a=0.05, B=1000)
equa3vartest( rexp(10) ,rexp(10) ,rexp(10) , a=0.01, B=1000)
Run the code above in your browser using DataLab