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", independant=T)