# Build a model similar to Program 1(a) from Dias et al. (2013b):
regressor <- list(coefficient='shared',
variable='secondary',
control='control')
model <- mtc.model(hfPrevention,
type="regression",
regressor=regressor,
hy.prior=mtc.hy.prior("std.dev", "dunif", 0, 5))
if (FALSE) {
result <- mtc.run(model)}
Run the code above in your browser using DataLab