shapiro test code snippets in r

create a loop and make a shapiro test on specific columns chosen in a vector in r