有明白的大侠吗，求解答！
S<-function(C){
  for(i in 1:23)
  shapiro.test(C[id==i])
   }