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