* do-file for Supplementary Exercise 6.140 of IPS7e
version 18 /* works also with versions 14-17, see below for version 13 and earlier */

import delimited "R:\Chapter 6\ex06_140.csv", clear
summarize odor, d
stem odor
qnorm odor
ztest odor=25, sd(7) level(95)

**************************************************************************
* Stata 13 (and earlier) code (see Exercise 6.13 for explanations)
cii 100000 30.6 700, level(95)
ttesti 100000 30.6 700 25