str(Rat)
attach(Rat)
hist(survival.time)
qqnorm(survival.time,col="blue")
qqline(survival.time,col="red")
t.test(survival.time)$conf
t.test(survival.time,mu=100,alternative="greater")
detach(Rat)
Run the code above in your browser using DataLab