У меня есть домашняя задача - написать функцию, которая оптимизирует свой путь к поиску 95% доверительного интервала для медианы распределения df = 2 Chisq. Моя функция, кажется, работает, но из вики я получил формулу для медианы как k (1-2 / 9k) ^ 3, которая дает 0,343 для k = 2. CI моей функции оценивается в (1,28, 1,51) с большим количеством большое распределение, размер выборки и количество симуляций (100000). Так что теоретического ответа в этом интервале нет. Может кто-нибудь сказать мне, где мой код терпит неудачу, пожалуйста?
ChisqMedian_CI <- function(chiN, nsim, sampleN){
y <- rchisq(n=chiN, df=2)
medy_resample <- NULL
for (i in 1:nsim) {
y_resample <- sample(y, replace=TRUE, size=sampleN)
medy_resample[i] <- median(y_resample)
}
LB <- quantile(medy_resample, probs=c(0.025))
UB <- quantile(medy_resample, probs=c(0.975))
return(c(LB, UB))
}