\begin{Schunk}
\begin{Sinput}
 m8again <- glm(yobs ~ x, data = dat8, family=binomial(logit))
 warnings()
 summary(m8again)
\end{Sinput}
\begin{Soutput}
Call:
glm(formula = yobs ~ x, family = binomial(logit), data = dat8)

Deviance Residuals: 
       Min          1Q      Median          3Q         Max  
-3.643e-05  -2.100e-08   2.100e-08   2.100e-08   3.639e-05  

Coefficients:
              Estimate Std. Error z value Pr(>|z|)
(Intercept)   -727.991 574012.197  -0.001    0.999
x                7.383   5819.051   0.001    0.999

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 2.6920e+01  on 19  degrees of freedom
Residual deviance: 2.6515e-09  on 18  degrees of freedom
AIC: 4

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