file <- system.file("extdata/luades-smoking.gemtc", package="gemtc")
network <- read.mtc.network(file)
print(network$treatments)
## id description
## A A No Contact
## B B Self-help
## C C Individual Counseling
## D D Group Counseling
plot(network)
summary(network)
## $Description
## [1] "MTC dataset: Smoking cessation rates"
##
## $`Studies per treatment`
## A B C D
## 19 6 19 6
##
## $`Number of n-arm studies`
## 2-arm 3-arm
## 22 2
Run the code above in your browser using DataLab