\begin{Schunk}
\begin{Sinput}
 x <- c(1, 12, 21, 19, 18)
 y <- c(0.1, 0.5, 1/3)
 t(x) %*% y
\end{Sinput}
\end{Schunk}
