# NOT RUN {
SmokdatINLA <- create_INLA_dat(dat = Smokdat, armVars = c('treatment' = 't', 'responders' = 'r'
,'sampleSize' = 'n'), nArmsVar = 'na')
# }
# NOT RUN {
## Fitting a consistency model
if(requireNamespace('INLA', quietly = TRUE)){
require('INLA', quietly = TRUE)
fit.Smok.cons.INLA <- nma_inla(SmokdatINLA, likelihood = 'binomial', type = 'consistency',
tau.prior = 'uniform', tau.par = c(0, 5))
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab