# R-program for Supplementary Exercise 7.64 of IPS7e

detect <- read.csv("h:/vhm/vhm801/Datasets/csv/Chapter 7/ex07_064.csv")
stem(detect$radon)
summary(detect$radon)
t.test(detect$radon, mu=105)