I<-data.frame(
    X=InsectSprays[,1],
    A=factor(rep(1:6,c(12,12,12,12,12,12)))
)
C<-rep(0,6)
for(i in 1:6)
C[i]<-shapiro.test(X[A==i])$p.value


Error in shapiro.test(X[A == i]) : sample size must be between 3 and 5000
这个报错是什么意思？？？？我觉得没有错误啊