# Data input
> x<-c(28,27,30,32,29,32,33,27,23,22,26,20)
> y<-c(29,37,34,37,29,28,33,36,33,32,26,31)
# F-test
> var.test(x,y,alternative="two.sided")
F test to compare two variances
data: x and y
F = 1.3219, num df = 11, denom df = 11, p-value = 0.6515
alternative hypothesis: true ratio of variances is not equal to 1
95 percent confidence interval:
0.3805355 4.5917643
sample estimates:
ratio of variances
1.321866