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

Deviance Residuals: 
   Min      1Q  Median      3Q     Max  
-1.420  -1.120  -0.852   1.138   1.542  

Coefficients:
            Estimate Std. Error z value Pr(>|z|)    
(Intercept) -1.05673    0.15000  -7.045 1.86e-12 ***
x            0.23021    0.03329   6.915 4.66e-12 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 1382.2  on 999  degrees of freedom
Residual deviance: 1332.2  on 998  degrees of freedom
AIC: 1336.2

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