\begin{Schunk}
\begin{Sinput}
 rm1.mf <- model.frame(posAffect ~ log(agency), data = dat)
 head(rm1.mf)
\end{Sinput}
\begin{Soutput}
  posAffect log(agency)
1  4.000000   1.3437347
2  3.000000   1.0608758
3  2.839467   0.5753579
4  2.833333   1.0049729
5  3.426800   1.1349764
6  3.333333   0.9162774
\end{Soutput}
\end{Schunk}
