\begin{Schunk}
\begin{Sinput}
 glm2 <- glm(y2~x2, family=binomial(probit))
 summary(glm2)
\end{Sinput}
\begin{Soutput}
Call:
glm(formula = y2 ~ x2, family = binomial(probit))

Deviance Residuals: 
     Min        1Q    Median        3Q       Max  
-2.00226  -0.09749   0.00051   0.09864   2.00871  

Coefficients:
            Estimate Std. Error z value Pr(>|z|)    
(Intercept) -4.51470    0.71031  -6.356 2.07e-10 ***
x2           0.06839    0.01045   6.544 6.00e-11 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 274.372  on 199  degrees of freedom
Residual deviance:  72.216  on 198  degrees of freedom
AIC: 76.216

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