summary(result)

Call:
svyglm(Injury ~ seat, sD, family = quasibinomial(link = "logit"))

Survey design:
svydesign(~1, prob = NULL, strata = Data[, 1], weights = Data[,
    4], data = Data, fpc = ~fPc)

Coefficients:
             Estimate Std. Error t value Pr(>|t|)
(Intercept) -4.256875   0.001421 -2996.7   <2e-16 ***
seatbad      0.681504   0.001689   403.4   <2e-16 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

(Dispersion parameter for quasibinomial family taken to be 1.000095)

Number of Fisher Scoring iterations: 6

	[[alternative HTML version deleted]]

