param_nbin {SBMSplitMerge}

Parameter model for Negative Binomial

Description

Negative Binomial parameter model: theta_0 = (mu0, sigma0) theta_k = (muk, sigmak)

Usage

param_nbin(a0, a1, b0, b1, c0, c1, d0, d1)

Arguments

a0, a1

mu0 ~ Gamma(a0,a1)

b0, b1

sig_0 ~ Beta(b0,b1)

c0, c1

muk ~ Gamma(c0, c1)

d0, d1

sig_k ~ Beta(d0,d1)

Value

parammod representing Negative-Binomial distributed parameters

Examples

## theta0 = (r0, p0); r0~Gamma(1,1); p0 ~ Beta(1,1);
## thetak = (rk, pk); rk~Gamma(3,3); pk ~ Beta(5,5);
pn <- param_nbin(1,1,1,1,3,3,5,5)
pn$r(5) ## a draw with 5 within-block parameters