bmult_bridge
Prints model specification
# S3 method for bmult_bridge
print(x, ...)
object of class bmult_bridge
as returned from mult_bf_inequality
or binom_bf_inequality
additional arguments, currently ignored
The print methods print the results from the bridge sampling algorithm and return nothing
# NOT RUN {
# data
x <- c(3, 4, 10, 11)
n <- c(15, 12, 12, 12)
# priors
a <- c(1, 1, 1, 1)
b <- c(1, 1, 1, 1)
# informed hypothesis
factor_levels <- c('theta1', 'theta2', 'theta3', 'theta4')
Hr <- c('theta1', '<', 'theta2', '<', 'theta3', '<', 'theta4')
## Multinomial Case
out_mult <- mult_bf_inequality(x=x, Hr=Hr, a=a, factor_levels=factor_levels,
niter=1e3, seed=2020)
out_mult
# }
Run the code above in your browser using DataLab