Ответы:
Это бета-отрицательное биномиальное распределение с параметром в вашем случае с использованием записи Википедии. Он также называется бета-Паскаль распределения, когда является целым числом. Как вы отметили в комментарии, это прогнозное распределение в байесовской отрицательной биномиальной модели с сопряженной бета-оценкой до вероятности успеха.
Таким образом, вы можете сэмплировать его, выбрав переменную u и затем выбрав отрицательную биномиальную переменную NB ( r , u ) (с r = 1 в вашем случае, то есть с геометрическим распределением).
Это распределение осуществляется в пакете R brr
. У сэмплера есть имя rbeta_nbinom
, у pmf есть имя dbeta_nbinom
и т. Д. Обозначения , c = α , d = β . Проверьте:
> Alpha <- 2; Beta <- 3
> a <- 1
> all.equal(brr::dbeta_nbinom(0:10, a, Alpha, Beta), beta(Alpha+a, Beta+0:10)/beta(Alpha,Beta))
[1] TRUE
Глядя на код, можно увидеть, что он на самом деле вызывает ghyper
(обобщенно гипергеометрическое) семейство распределений SuppDists
пакета:
brr::rbeta_nbinom
function(n, a, c, d){
rghyper(n, -d, -a, c-1)
}
В самом деле, распределение BNB известно как обобщенное гипергеометрическое распределение типа IV . Смотрите помощь ghyper
в SuppDists
пакете. Я полагаю, что это также можно найти в книге Джонсона и др. Univariate Discrete Distribution .
Учитывая, что уменьшается с ростомx, я предлагаю сгенерировать равномерную переменнуюu∼U(0,1)и вычислить накопленные суммыSk=k ∑ x=0Beta(α+1,β+x)