\begin{Schunk}
\begin{Sinput}
 library(psych)
 dat<- data.frame(scale(dat))
 describe(dat,fast = T)
\end{Sinput}
\begin{Soutput}
   vars    n mean sd   min  max range   se
v1    1 1160    0  1 -2.77 2.87  5.64 0.03
v2    2 1160    0  1 -3.52 3.09  6.61 0.03
s1    3 1160    0  1 -2.93 2.92  5.85 0.03
s2    4 1160    0  1 -3.41 3.81  7.22 0.03
c1    5 1160    0  1 -3.00 3.14  6.14 0.03
c2    6 1160    0  1 -3.28 3.81  7.09 0.03
\end{Soutput}
\end{Schunk}
