\begin{Schunk}
\begin{Sinput}
 vl <- c("Intrin1" = "Intrinsic1", "Intrin2" = "Intrinsic2",  "Intrin3" = "Intrinsic3", "Extrin1" = "Extrinsic1", "Extrin2" = "Extrinsic2",  "Extrin3" = "Extrinsic3", "PosAFF1" = "Positive1", "PosAFF2" = "Positive2", "PosAFF3" = "Positive3",         "NegAFF1" = "Negative1", "NegAFF2" = "Negative2", "NegAFF3" = "Negative3")
\end{Sinput}
\end{Schunk}
