CODE EXAMPLE FOR SHELL

latex number listing as equation

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