powered by
Data for Exercise 5.12 and 5.111
Faithful
A data frame with 299 observations on the following 2 variables.
Time
a numeric vector
Eruption
# NOT RUN { 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