使用R语言中的NETMETA进行网状META分析过程

install.packages('netmeta')
library(netmeta)
data(Senn2013)
Senn2013
nma <- netmeta(TE, seTE, treat1,treat2, studlab,data=Senn2013, sm='MD', reference='plac',comb.random=FALSE)
netgraph(nma, seq=c('plac', 'benf', 'migl', 'acar', 'sulf','metf', 'rosi', 'piog', 'sita', 'vild'))
print(nma,digits=2)
nma_re <- netmeta(TE, seTE, treat1, treat2, studlab, data=Senn2013, sm='MD', reference='plac',comb.random=TRUE)
nma_re
forest(nma,xlab='HbA1c mean difference', xlim=c(-1.5,1.5))
forest(nma_re,xlab='HbA1c mean difference')
round(nma$Q, 1)
round(nma$Q.heterogeneity, 1)
round(nma$Q.inconsistency, 1)
Qd <- nma$Q.decomp
Qd$Q <- round(Qd$Q, 1)
Qd$pval.Q <- round(Qd$pval.Q, 3)
Qd[Qd$df!=0,]
decomp.design(nma)
netheat(nma)