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)