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

Deviance Residuals: 
    Min       1Q   Median       3Q      Max  
-1.7333  -0.5030  -0.5030   0.7097   2.0639  

Coefficients:
            Estimate Std. Error z value Pr(>|z|)    
(Intercept)  -2.0033     0.1399  -14.32   <2e-16 ***
x             3.2536     0.1756   18.52   <2e-16 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 1378.54  on 999  degrees of freedom
Residual deviance:  898.86  on 998  degrees of freedom
AIC: 902.86

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