<html><head></head><body><div style="font-family: Verdana;font-size: 12.0px;"><div>Dear Guido,</div>
<div> </div>
<div>that looks fantastic. This makes it even better! Thank you. For all people that publish in the JAMA Network that is very helpful.</div>
<div> </div>
<div>Regards</div>
<div> </div>
<div>Tobias Saueressig</div>
<div> </div>
<div>P.S. Grüße nach Freiburg!</div>
<div>
<div>
<div name="quote" style="margin:10px 5px 5px 10px; padding: 10px 0 10px 10px; border-left:2px solid #C3D9E5; word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;">
<div style="margin:0 0 10px 0;"><b>Gesendet:</b> Donnerstag, 17. Dezember 2020 um 16:01 Uhr<br/>
<b>Von:</b> "Guido Schwarzer" <sc@imbi.uni-freiburg.de><br/>
<b>An:</b> "Tobias Saueressig" <t.saueressig@gmx.de><br/>
<b>Cc:</b> "r-sig-meta-analysisr-project.org" <r-sig-meta-analysis@r-project.org><br/>
<b>Betreff:</b> Re: [R-meta] Superscript in Forest plot (meta)</div>
<div name="quoted-content">Tobias,<br/>
<br/>
Good to hear that you found a solution.<br/>
<br/>
I somewhat extended your R code to make it more general.<br/>
<br/>
library(meta)<br/>
data(Fleiss1993bin)<br/>
<br/>
refs <- 20 + seq_len(nrow(Fleiss1993bin))<br/>
mylabs <- NA<br/>
##<br/>
for (i in seq_len(nrow(Fleiss1993bin)))<br/>
mylabs[i] <-<br/>
as.expression(substitute(study^ref~(year),<br/>
list(study = Fleiss1993bin$study[i],<br/>
ref = refs[i],<br/>
year = Fleiss1993bin$year[i])))<br/>
##<br/>
mylabs<br/>
<br/>
m <- metabin(d.asp, n.asp, d.plac, n.plac, data = Fleiss1993bin,<br/>
studlab = paste(study, year),<br/>
sm = "OR", comb.random = FALSE)<br/>
<br/>
pdf("forest-study-ref-year.pdf", width = 8.5, height = 3.5)<br/>
forest(m, studlab = mylabs)<br/>
dev.off()<br/>
<br/>
Best wishes, Guido</div>
</div>
</div>
</div></div></body></html>