powered by
Faithful
str(Faithful) attach(Faithful) hist(Time,prob=TRUE,xlab="Waiting time between eruptions",col="tomato") lines(density(Time),col="red",lwd=3) t.test(Time)$conf detach(Faithful)
Run the code above in your browser using DataLab