# NOT RUN {
data('TBdat')
## Create the dataset suitable for INLA
TBdatINLA <- create_INLA_dat_pair(TBdat$TRT, TBdat$CON, TBdat$TRTTB, TBdat$CONTB)
## Fitting a random-effects model using arm-level approach
# }
# NOT RUN {
if(requireNamespace('INLA', quietly = TRUE)){
require('INLA', quietly = TRUE)
fit.TB.RE.INLA <- meta_inla(TBdatINLA, type = 'RE', approach = 'arm-level',
tau.prior = 'uniform', tau.par = c(0, 5))
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab