# R-program for Supplementary Exercises 7.73 and 7.74 of IPS7e

kidney <- read.csv("r:/Chapter 7/ex07_073.csv")

# 7.73
stem(kidney$phos)
summary(kidney$phos)
t.test(kidney$phos, conf.level=0.90)

# 7.74
t.test(kidney$phos, alternative="greater", mu=4.8)