shapiro-wilk code snippets in r

how to create a shapiro test to a specific set of columns from a table in r