\begin{Schunk}
\begin{Sinput}
 termplot(chile1NI, partial.resid=TRUE, se=TRUE, ylabs=c("Statusquo Support"))
\end{Sinput}
\end{Schunk}
