# NOT RUN {
z<-rnorm(20)
x<-rnorm(20)+z
y<-(rnorm(20)+z)*2
levene.Var.test(x,y)
# Some variations
levene.Var.test(x,y,tr=0.2)
levene.Var.test(x,y,location="median")
data(anscombe2)
p<-with(anscombe2,paired(X2,Y2))
levene.Var.test(p)
# }
Run the code above in your browser using DataLab