> data(iris) > stest <- shapiro.test(iris$Petal.Width) > stest$p.value ## [1] 1.68024e-08 > stest$statistic ## W ## 0.901834