\begin{Schunk}
\begin{Sinput}
 m2 <- glm(yobs ~ x, family = gaussian)
 summary(m2)
\end{Sinput}
\begin{Soutput}
Call:
glm(formula = yobs ~ x, family = gaussian)

Deviance Residuals: 
    Min       1Q   Median       3Q      Max  
-0.6346  -0.4677  -0.3009   0.4767   0.6992  

Coefficients:
            Estimate Std. Error t value Pr(>|t|)    
(Intercept) 0.245225   0.034586   7.090 2.53e-12 ***
x           0.055624   0.007732   7.194 1.24e-12 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for gaussian family taken to be 0.2371763)

    Null deviance: 248.98  on 999  degrees of freedom
Residual deviance: 236.70  on 998  degrees of freedom
AIC: 1402.9

Number of Fisher Scoring iterations: 2
\end{Soutput}
\end{Schunk}
