table=morley
x=table$Speed
stem(x)
t.test(x,mu=710.5)

#Adding a 99% confidence interval
t.test(x,mu=710.5,conf.level=0.99)