Speed dating!!

model<-glm(formula =dec_o~sports+tvsports+exercise+dining+art+hiking+gaming+
             clubbing+reading+tv+movies+music+shopping+yoga,
           family = binomial(link = "logit"),data = dating)
a<-model %>% summary()
a$coefficients[1:4,]

##                Estimate Std. Error   z value     Pr(>|z|)
## (Intercept) -1.19733503 0.18774420 -6.377481 1.800248e-10
## sports       0.04461197 0.01111440  4.013889 5.972655e-05
## tvsports    -0.03498365 0.01009435 -3.465666 5.289204e-04
## exercise     0.05222134 0.01046248  4.991296 5.997555e-07

12312321321

## [1] 12312321321

3

4