# NOT RUN {
z<-rnorm(20)
x<-rnorm(20)+z
y<-(rnorm(20)+z)*2
mcculloch.Var.test(x,y)
p<-paired(x,y)
mcculloch.Var.test(p)
# A variation with kendall tau
mcculloch.Var.test(p,method="kendall")
# equivalence with the PitmanMorgan test
mcculloch.Var.test(p,method="pearson")
Var.test(p)
# }
Run the code above in your browser using DataLab