param_beta {SBMSplitMerge}

Beta parameter model

Description

A parammod with beta-distributed parameters

Usage

param_beta(a0, a1, b0, b1)

Arguments

a0

theta_0 ~ Beta(a0,a1)

a1

theta_0 ~ Beta(a0,a1)

b0

theta_k ~ Beta(b0,b1)

b1

theta_k ~ Beta(b0,b1)

Details

This model represents a prior on theta with:

theta_0 ~ Beta(a0,a1)

theta_k ~ Beta(b0,b1)

for k = 1 ... kappa

Value

a parammod

Examples

## theta0 ~ Beta(1,9); thetak ~ Beta(9,1)
pb <- param_beta(1,9,9,1)
pb$r(5) ## a draw with 5 within-block parameters