# generate random case control status
case_control <- rbinom(length(y(MarginalModelExample)), 1, 0.5)
case_control_posterior <- posterior_cases(MarginalModelExample,
case_control)
Run the code above in your browser using DataLab