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