\begin{Schunk}
\begin{Sinput}
 dat$instcstP1000 <- dat$instcst/1000
 mod3 <- lm(gradrate ~ instcstP1000, data = dat, subset = instcstP1000 < 25)
\end{Sinput}
\end{Schunk}
