Hi, I had a problem to find what is wrong on the following codes
logistic_coef <-function(d, i){
d <- d[i,]
fit <- glm(bpd ~ birthwt + gestage + toxemia,
data = d,
family = "binomial")
return(coef(fit))
}
#apply the boot() function
set.seed(77)
boot_logistic <- boot(data = bpd,
statisitc = logistic_coef,
R=5000)
error message: Error in statistic(data, original, ...) :
argument "statistic" is missing, with no default