从R中的Shapiro.test（）提取信息

我在R中使用

shapiro.test（）

来测试数据集的正态性。我想从中提取w-统计量和p-值，以便在某处使用它。可能吗？我如何才能做到这一点？

结果
>数据（iris）
results <- shpairo.test(valuesToTest)
results$p.value

>stest每股价值
##[1]1.68024e-08
>stest$统计
##W
## 0.901834 
看看str（shapiro.test（rnorm（100，均值=5，标准差=3）），这对p值有效。如何求w统计量值
> data(iris)
> stest <- shapiro.test(iris$Petal.Width)
> stest$p.value
## [1] 1.68024e-08
> stest$statistic
##        W 
## 0.901834