\begin{Schunk}
\begin{Sinput}
 rm1.mf <- model.frame(reg.mod.1)
 head(rm1.mf)
\end{Sinput}
\begin{Soutput}
  posAffect   agency
1  4.000000 3.833333
2  3.000000 2.888900
3  2.839467 1.777767
4  2.833333 2.731833
5  3.426800 3.111100
6  3.333333 2.499967
\end{Soutput}
\end{Schunk}
