tests/testthat/inconsistency_meta-reg.R

In audrey-b/BUGSnet: Bayesian network meta-analyses in compliance with best practice and reporting guidelines

library(testthat)
library(BUGSnet)

fe_inconsistency_model <- nma.model(data=dataprep,
                                    outcome="events",
                                    N="sampleSize",
                                    reference="02",
                                    family="binomial",
                                    link="logit",
                                    effects="fixed",
                                    type="inconsistency",
                                    covariate="stroke",
                                    prior.beta="EXCHANGEABLE")

expect_error(nma.run(fe_inconsistency_model, n.iter = 1000), NA)