rprobdist(2, 4) # 2x2x2x2 table
rprobdist(c(2,3,2)) # 2x3x2 table
rprobdist(2, 4, alpha=1/16) # using unit information prior
# get variables 2 and 4 conditioned upon
rprobdist(2, 4, cond=c(2,4), alpha=1/16)
Run the code above in your browser using DataLab