\begin{Schunk}
\begin{Sinput}
 lmmod <- glm(yobs~ I(1/xseq))
 lmpred <- predict(lmmod, se=T)
 
\end{Sinput}
\end{Schunk}
