\begin{Schunk}
\begin{Sinput}
 x <- c(1,2,3)
 y <- c(4,5,6) 
 x %*% y
\end{Sinput}
\begin{Soutput}
     [,1]
[1,]   32
\end{Soutput}
\begin{Sinput}
 t(x) %*% y
\end{Sinput}
\begin{Soutput}
     [,1]
[1,]   32
\end{Soutput}
\end{Schunk}
