I am attempting to do a logistic regression bootstrap with R. The problem is I get high SE's. I'm not sure what to do about this or what it means. Does it mean that bootstrap does not work well for my particular data? Here is my code:
get.coeffic = function(data, indices){
data = data[indices,]
mylogit = glm(F~B+D, data=data, family="binomial")
return(mylogit$coefficients)
}
Call:
boot(data = Pres, statistic = logit.bootstrap, R = 1000)
Bootstrap Statistics :
original bias std. error
t1* -10.8609610 -23.0604501 338.048398
t2* 0.2078474 0.4351766 6.387781
I also want to know that after bootstrapping, how would this help with my final regression model? That is, how do I find what regression coefficient do I use in my final model?
> fit <- glm(F ~ B + D , data = President, family = "binomial")
> summary(fit)
Call:
glm(formula = F ~ B + D, family = "binomial", data = President)
Deviance Residuals:
Min 1Q Median 3Q Max
-1.7699 -0.5073 0.1791 0.8147 1.2836
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -14.57829 8.98809 -1.622 0.1048
B 0.15034 0.14433 1.042 0.2976
D 0.13385 0.08052 1.662 0.0965 .
- --
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 23.508 on 16 degrees of freedom
Residual deviance: 14.893 on 14 degrees of freedom
AIC: 20.893
Number of Fisher Scoring iterations: 5