# NOT RUN {
data(HorseBeginners)
#one sample test
Var.test(HorseBeginners$Actual,ratio=15)
# two independent samples test
Var.test(HorseBeginners$Actual,HorseBeginners$Imaginary)
# two dependent samples test
Var.test(HorseBeginners$Actual,HorseBeginners$Imaginary,paired=TRUE)
p<-with(HorseBeginners,paired(Actual,Imaginary))
Var.test(p)
# }
Run the code above in your browser using DataLab