Я пытаюсь запустить bootstrap на взвешенной по опросу логистической c регрессии, чтобы вычислить доверительные интервалы для оценок. Однако, когда я запускаю bootstrap, он возвращает одни и те же значения для оценок на каждой итерации, поэтому я предполагаю, что он не берет случайную выборку.
Ниже мой код
logit.bootstrapsurvey <- function(data, indicies) {
d<-svydesign(~SDMVPSU,data=data, strata=~SDMVSTRA, weights=~WTMEC2YR,nest=TRUE)
d<-subset(d,!is.na(pos))
fit <- svyglm(pos~factor(age)+factor(race)+factor(poverty)+factor(car)+factor(sex)+
factor(mar)+factor(eduref), design = d, family = "binomial")
return(coef(fit))
}
set.seed(999)
logit.boot <- boot(data=data_18, statistic=logit.bootstrapsurvey, R=1000)
Я предполагаю, что что-то в функции, которую я написал, заставляет функцию загрузки запускаться с исходными данными, а не с новым набором данных. Однако я не могу понять, как это происходит, и действительно ли это проблема.