\begin{Schunk}
\begin{Sinput}
 lmmod1a <- lm ( yobs~I(1/xseq))
 summary(lmmod1a)
\end{Sinput}
\begin{Soutput}
Call:
lm(formula = yobs ~ I(1/xseq))

Residuals:
    Min      1Q  Median      3Q     Max 
-21.467  -3.929  -1.500   2.537  49.790 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)    
(Intercept)   0.3723     0.5212   0.714    0.475    
I(1/xseq)    71.6044     4.0309  17.764   <2e-16 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 7.425 on 798 degrees of freedom
Multiple R-squared:  0.2834,	Adjusted R-squared:  0.2825 
F-statistic: 315.6 on 1 and 798 DF,  p-value: < 2.2e-16
\end{Soutput}
\begin{Sinput}
 
\end{Sinput}
\end{Schunk}
