* do-file for Supplementary Exercise 2.57 of IPS7e
version 18 /* works also with versions 13-17 */

import delimited "R:\Chapter 2\ex02_057.csv"
twoway (scatter city rural) (lfit city rural)
regress city rural
predict stdres, rstandard
scatter stdres rural
generate day=_n 
scatter stdres day
predict fit
list if day==14
qnorm stdres
swilk stdres