# R-program for Supplementary Exercises 7.143 and 7.145 of IPS7e

# 7.143
bones <- read.csv("r:/Chapter 7/ex07_143.csv")
summary(bones$oc)
stem(bones$oc)
shapiro.test(bones$oc)
t.test(bones$oc, conf.level=0.95)

# 7.145
bones <- read.csv("r:/Chapter 7/ex07_145.csv")
# alternatively, calculate the ln-values as: bones$loc <- log(bones$oc)
summary(bones$loc)
stem(bones$loc)
shapiro.test(bones$loc)
t.test(bones$loc, conf.level=0.95)