Я не знаю назви цього розподілу, але ви можете просто вивести його із закону повної ймовірності. Припустимо, мають негативні біноміальні розподіли з параметрами та відповідно. Я використовую параметризацію, де представляють кількість успіхів до відмов 'і ' відповідно. Потім,( r 1 , p 1 ) ( r 2 , p 2 ) X , Y r 1 r 2X,Y(r1,p1)(r2,p2)X,Yr1r2
P(X−Y=k)=EY(P(X−Y=k))=EY(P(X=k+Y))=∑y=0∞P(Y=y)P(X=k+y)
Ми знаємо
P(X=k+y)=(k+y+r1−1k+y)(1−p1)r1pk+y1
і
P(Y=y)=(y+r2−1y)(1−p2)r2py2
так
P(X−Y=k)=∑y=0∞(y+r2−1y)(1−p2)r2py2⋅(k+y+r1−1k+y)(1−p1)r1pk+y1
Це не дуже (поступається!). Єдине спрощення, яке я бачу, є
pk1(1−p1)r1(1−p2)r2∑y=0∞(p1p2)y(y+r2−1y)(k+y+r1−1k+y)
що все ще досить некрасиво. Я не впевнений, чи це корисно, але це також можна переписати як
pk1(1−p1)r1(1−p2)r2(r1−1)!(r2−1)!∑y=0∞(p1p2)y(y+r2−1)!(k+y+r1−1)!y!(k+y)!
Я не впевнений, чи є спрощений вираз для цієї суми, але це може бути приблизно чисельним, якщо вам знадобиться лише для обчислення значеньp
Я симулятором перевірив, що наведений вище розрахунок є правильним. Ось сира функція R для обчислення цієї масової функції та проведення декількох моделювання
f = function(k,r1,r2,p1,p2,UB)
{
S=0
const = (p1^k) * ((1-p1)^r1) * ((1-p2)^r2)
const = const/( factorial(r1-1) * factorial(r2-1) )
for(y in 0:UB)
{
iy = ((p1*p2)^y) * factorial(y+r2-1)*factorial(k+y+r1-1)
iy = iy/( factorial(y)*factorial(y+k) )
S = S + iy
}
return(S*const)
}
### Sims
r1 = 6; r2 = 4;
p1 = .7; p2 = .53;
X = rnbinom(1e5,r1,p1)
Y = rnbinom(1e5,r2,p2)
mean( (X-Y) == 2 )
[1] 0.08508
f(2,r1,r2,1-p1,1-p2,20)
[1] 0.08509068
mean( (X-Y) == 1 )
[1] 0.11581
f(1,r1,r2,1-p1,1-p2,20)
[1] 0.1162279
mean( (X-Y) == 0 )
[1] 0.13888
f(0,r1,r2,1-p1,1-p2,20)
[1] 0.1363209
Я знайшов суму, що збігається дуже швидко для всіх значень, які я пробував, тому встановлювати UB вище 10 або близько того не потрібно. Зауважимо, що вбудована в функцію rnbinom функція R параметризує від'ємний двочлен з точки зору кількості відмов до -го успіху, і в цьому випадку вам потрібно буде замінити всі 'на наведені вище формули з сумісністю .rp1,p21−p1,1−p2