\begin{Schunk}
\begin{Sinput}
 fit1 <- readRDS("stan/KJ_stan_model.rds")
 names(fit1)[1:6]  <- c("Intercept",
                         "Voter",
                         "Sentiment",
                         "Voter^2",
                         "VoterXSent",
                         "Sentiment^2")
\end{Sinput}
\end{Schunk}
