x = rnorm(12, mean=15000, sd=1600)
y = rnorm(17, mean=17500, sd=2500)

t.test(x, y)

t.test(x, y, var.equal=T)   

var.test(x, y, conf.level=0.95)