Netheat in R for network meta-analysis

Question

[ren]

This is my dataset:

id<-c(1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,10,10,11,11,12,12,13,13,14,14,15,15,15,16,16,17,17,18,18,19,19,19,20,20,21,21)

r<-c(71,57,68,53,53,17,25,5,58,9,34,12,17,3,27,1,43,12,32,10,40,25,24,19,16,8,35,57,6,5,5,25,15,11,16,37,9,80,58,101,41,21,48,49)

n<-c(331,329,215,209,218,73,65,25,225,74,159,166,67,23,83,25,127,58,220,148,209,207,33,30,21,21,59,77,26,32,26,36,22,15,18,94,47,169,170,169,57,56,63,63)

t<-c("Certolizumab","Placebo","Certolizumab","Placebo","Certolizumab","Placebo","Certolizumab","Placebo","Adalimumab","Placebo","Adalimumab","Placebo","Adalimumab","Placebo","Infliximab","Placebo","Vedolizumab","Placebo","Vedolizumab","Placebo","Vedolizumab","Placebo","Aziothioprine/6MP","Placebo","Aziothioprine/6MP","Placebo","Aziothioprine/6MP","Placebo","Placebo","Aziothioprine/6MP","Methotrexate","Aziothioprine/6MP","Placebo","Methotrexate","Placebo","Methotrexate","Placebo","Infliximab","Aziothioprine/6MP","Infliximab+aziothioprine","Infliximab+aziothioprine","Aziothioprine/6MP","Infliximab+methotrexate","Infliximab")

I want to run a netheat, so I did this:

results.NMA=netmeta(TE,seTE,treat1,treat2,studlab,data=antiplatelet,sm="OR" ,ref="Placebo",comb.random=TRUE)

and then:

netheat(results.NMA)

It's giving me this error:

Error in .External.graphics(C_strWidth, as.graphicsAnnot(s), pmatch(units,  :

How can I fix this to get a netheat graph?

[venu]

This might help: Error in .External.graphics R