> set.seed(1)
> data<-rnorm(518,10,3)
> sx<-apply(data,2,sd)
Error in apply(data, 2, sd) : dim(X) must have a positive length