4-8. Negative Binomial Distribution (*)
1. Negative Binomial Distribution
기하분포의 개념을 보다 일반화해서 번째 성공이 발생할 때까지 시행하는 독립시행의 횟수를 라 하면, 확률변수 는 다음과 같은 음이항분포(Negative Binomial Distribution)를 따른다.
[ 이를 로 표기한다. ]
번째 시행에서 번째 성공이 발생하려면 그 이전의 번의 시행까지 번의 '성공'이 나와야 하고, 마지막 시행에서 '성공'이 나와야 한다.
음이항분포(Negative Binomial Distribution)는 성공확률이 일정한 시행에서 주어진 횟수()의 성공이 발생할 때까지 시행한 횟수의 확률분포로 다음과 같은 확률밀도함수를 갖는다.
2. Geometric Distribution and Negative Binomial Distribution
이 독립이고 동일한 기하분포(Geometric Distribution)를 따르는 확률변수일 때, 의 분포는 음이항분포(Negative Binomial Distribution)를 따른다.
3. Expected Value and Variance of Negative Binomial Distribution
EXAMPLE 27. 성공확률이 0.4인 무한모집단에서 각각 1회, 2회, 4회의 성공을 얻을 때까지 시행하였을 때, 시행횟수의 확률분포 그래프를 작성하고, 기대값과 분산을 구하여 비교하라.
[ Solution ]
library(Rstat)
# p, r, range of x
p <- 0.4; r <- c(1, 2, 4); xr <- 1:100
len <- length(r)
# dnbinom() : failures before the r-th success
fx <- list()
for (i in 1:len) fx[[i]] <- dnbinom(xr - r[i], r[i], p)
# Sum(fx) == 1 ?
sapply(fx, sum)
# Plot
mt <- paste0("Neg-Binomial(0.4,", r, ")")
win.graph(9,3); par(mfrow=c(1,3)); par(mar=c(3,4,4,2))
for (k in 1:len) plot(xr[1:30], fx[[k]][1:30], type="h",
main=mt[k], ylab="f(x)", xlab="", lwd=3, col=2)
# E(X) and Var(X)
disc.mexp(xr, fx, plot=F)
EXAMPLE 28. 성공확률이 각각 0.1인 세 개의 프로젝트를 성공시킬 때까지 기획한 횟수 에 대하여 다음을 구하시오.
확률분포함수
기대값과 분산
10번째 시도 만에 3 개의 프로젝트를 성공시킬 확률
[ Solution ]
library(Rstat)
# p, r, range of x
p <- 0.1; r <- 3; xr <- 3:250
# dnbinom() : failures before the r-th success
fx <- dnbinom(xr - r, r, p)
disc.exp(xr, fx)
# f(10)? :
xr <- 10
dnbinom(xr-r, r, p)
Last updated
Was this helpful?