a <- c(15,10,10,7,7,4,9,6,10,12) b <- c(8,9,2,0,0,9,9,7,3,3) t.test(a, b, alternative="greater", var.equal=TRUE)
Standard input is empty
Two Sample t-test
data: a and b
t = 2.5701, df = 18, p-value = 0.009635
alternative hypothesis: true difference in means is greater than 0
95 percent confidence interval:
1.301192 Inf
sample estimates:
mean of x mean of y
9 5