problem-9.17

problem-9.17  The two tests can be carried out with
> shapiro.test(babies$ht[babies$ht < 99])$p.value
[1] 4.898e-10
> shapiro.test(babies$wt[babies$wt < 999])$p.value
[1] 0.001192
    
In each case the null hypothesis would be rejected.