\begin{equation} \label{eq:lm.eq:lm.model}
    \text{\lstinline[language=R]|lm.model <- lm(Total.Score ~ Game.Num, data = sid1133)|}
\end{equation}