>
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