\begin{Schunk}
\begin{Sinput}
 dat<- read.table("data/data_kj.dat", header = TRUE)
 head(dat)
\end{Sinput}
\begin{Soutput}
     v1    v2    s1    s2    c1    c2
1 -0.74 -1.20  0.05 -1.75 -1.02  0.20
2  3.16  1.73 -1.64  0.75  0.34 -1.46
3 -0.05 -0.97 -3.10 -0.64  1.71  0.12
4  1.49 -0.87 -0.75  0.92 -0.75  0.28
5  0.44 -0.89 -0.21  0.27  0.40  0.48
6  0.11 -0.53  0.84  0.78  2.85  1.82
\end{Soutput}
\end{Schunk}
