# NOT RUN {
tapply(Irises$sepal_length, Irises$species, mean)
t.test(Irises$sepal_length[Irises$species == "setosa"], conf.level = 0.99)
hist(Irises$sepal_length[Irises$species == "setosa"],
main = "Sepal length for\n Iris Setosa",
xlab = "Length (in cm)")
boxplot(sepal_length ~ species, data = Irises)
# }
Run the code above in your browser using DataLab