\begin{Schunk}
\begin{Sinput}
 pp3<-predict(bushideoglm1,newdata=data.frame(V023022=1:7),type="response",se.fit=T)
 pp3
\end{Sinput}
\begin{Soutput}
$fit
         1          2          3          4          5          6          7 
0.04744458 0.11430586 0.25060247 0.46423380 0.69185001 0.85331917 0.93778746 

$se.fit
         1          2          3          4          5          6          7 
0.01132256 0.01885170 0.02403794 0.02210266 0.02046537 0.01784950 0.01185117 

$residual.scale
[1] 1
\end{Soutput}
\end{Schunk}
