\begin{Schunk}
\begin{Sinput}
 ps31$newdata$posAffect <- ps31$newdata$fit
 p1 <- p1 + geom_line(data = ps31$newdata, color = "blue")
 p1
\end{Sinput}
\end{Schunk}
