powered by
htest
htest.short(x)
htest.short(shapiro.test(rnorm(100)))
Run the code above in your browser using DataLab