>library(openxlsx)
>d5.1 = read.table("clipboard",header=T);d5.1
>logit<-glm(y~x1+x2+x3,family=binomial,data=d5.1)
>summary(logit)


> d5.1 = read.table("clipboard",header=T);d5.1
   y x1 x2 x3
1  1  1 17  1
2  0  1 44  0
3  0  1 48  1
4  0  1 55  0
5  1  1 75  1
6  1  0 35  0
7  1  0 42  1
8  0  0 57  0
9  1  0 28  0
10 1  0 20  0
11 0  0 38  1
12 1  0 45  0
13 1  0 47  1
14 0  0 52  0
15 1  0 55  0
16 0  1 68  1
17 0  1 18  1
18 0  1 68  0
19 1  1 48  1
20 0  1 17  0
21 1  1 70  1
22 0  1 72  1
23 1  1 35  0
24 0  1 19  1
25 0  1 62  1
26 1  0 39  1
27 1  0 40  1
28 0  0 55  0
29 1  0 68  0
30 0  0 25  1
31 0  0 17  0
32 1  0 45  0
33 1  0 44  0
34 0  0 67  0
35 1  0 55  0
36 0  1 61  1
37 0  1 19  1
38 0  1 69  0
39 1  1 23  1
40 0  1 19  0
41 1  1 72  1
42 0  1 74  1
43 1  1 31  0
44 0  1 16  1
45 0  1 61  1
> summary(logit)
Error in summary(logit) : 找不到对象'logit'