taking out columns from a data frame
taking out columns from a data frame s2_1data<- subset(s2data,select = -c( 1, 2, 3,4,5,6,9,10,11,12,13,20,21))