> 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