#From the work of John Verzani
#Two sample t-test

x = c(15, 10, 13, 7, 9, 8, 21, 9, 14, 8)
y = c(15, 14, 12, 8, 14, 7, 16, 10, 15, 12)
t.test(x,y,alt="less",var.equal=TRUE)


#Box Plot
boxplot(x,y)

#Unequal variances
t.test(x,y,alt="less")