a <- c(15,10,10,7,7,4,9,6,10,12)
b <- c(8,9,2,0,0,9,9,7,3,3)
mean(a)
mean(b)
sd(a)
sd(b)
t.test(a-b, alternative="less")