\begin{Schunk}
\begin{Sinput}
 library(ggplot2)
 library(ggridges)
 library(GGally)
 library(reshape2)
 dat_long <- melt(dat)
 head(dat_long)
\end{Sinput}
\begin{Soutput}
  variable       value
1       v1 -0.55257993
2       v1  2.22672276
3       v1 -0.06085715
4       v1  1.03661110
5       v1  0.28833730
6       v1  0.05316553
\end{Soutput}
\begin{Sinput}
 tail(dat_long)
\end{Sinput}
\begin{Soutput}
     variable      value
6955       c2 -0.9926458
6956       c2 -1.4027629
6957       c2 -0.3120260
6958       c2  0.8659699
6959       c2 -1.2020673
6960       c2 -0.6348841
\end{Soutput}
\end{Schunk}
