# Load the example network and generate a consistency model:
file <- system.file("extdata/luades-thrombolytic.gemtc", package="gemtc")
network <- read.mtc.network(file)
model <- mtc.model(network, type="consistency")
# Load pre-generated samples instead of runing the model:
results <- mtc.run(model)
file.samples <- system.file("extdata/luades-thrombolytic.samples.gz", package="gemtc")
results <- read.mtc.result.samples(file.samples, model, "rjags")
# Print a basic statistical summary of the results:
summary(results)
Run the code above in your browser using DataLab