\begin{Schunk}
\begin{Sinput}
 aRegMod <- function(xin1, xin2, yout){ lm(yout ~ xin1 + xin2) }
\end{Sinput}
\end{Schunk}
