# 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)
# Data output
> x
[1] 28 27 30 32 29 32 33 27 23 22 26 20
> y
[1] 29 37 34 37 29 28 33 36 33 32 26 31
# t-test
> t.test(x,y,paired=FALSE,alternative="two.sided", var.equal=TRUE)
Two Sample t-test
data: x and y
t = -2.9433, df = 22, p-value = 0.007518
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
-7.954844 -1.378489
sample estimates:
mean of x mean of y
27.41667 32.08333