shapiro-test code snippets in r

how to make a shapiro test on some columns from a data table in r