\begin{Schunk}
\begin{Sinput}
 library(kutils)
 keyw <- keyTemplate(grades, file = "key-wide.csv")
\end{Sinput}
\end{Schunk}
