Khoảng tin cậy tối đa
p
β^0=log(p^/(1−p^))
αβ0
CI(β0)α=β^0±Zα/21/(np^(1−p^)−−−−−−−−−−−√
p
CI(p)α=1/(1+exp(−CI(β0)α)
CI này có thêm lợi ích là tỷ lệ nằm trong khoảng giữa 0 hoặc 1, và CI luôn hẹp hơn khoảng bình thường trong khi ở mức chính xác. Bạn có thể nhận được điều này rất dễ dàng trong R bằng cách chỉ định:
set.seed(123)
y <- rbinom(100, 1, 0.35)
plogis(confint(glm(y ~ 1, family=binomial)))
2.5 % 97.5 %
0.2795322 0.4670450
Khoảng tin cậy nhị thức chính xác
Y=np^(n,p)p^
CIα=(F−1p^(0.025),F−1p^(0.975))
p
qbinom(p = c(0.025, 0.975), size = length(y), prob = mean(y))/length(y)
[1] 0.28 0.47
Khoảng tin cậy trung bình không thiên vị
pp1−α/2
p1−α/2:P(Y=0)/2+P(Y>y)>0.975
Đây cũng là một thói quen tính toán.
set.seed(12345)
y <- rbinom(100, 1, 0.01) ## all 0
cil <- 0
mupfun <- function(p) {
0.5*dbinom(0, 100, p) +
pbinom(1, 100, p, lower.tail = F) -
0.975
} ## for y=0 successes out of n=100 trials
ciu <- uniroot(mupfun, c(0, 1))$root
c(cil, ciu)
[1] 0.00000000 0.05357998 ## includes the 0.01 actual probability
Hai phương thức cuối cùng được thực hiện trong epitools
gói trong R.