data(iris)
iris[1:5,]
swsetosa[1:5]
t.test(swsetosa)
t.test(swsetosa,conf.level=.9)