<html><head></head><body><div style="font-family: Verdana;font-size: 12.0px;"><div>Dear Guido,</div>
<div> </div>
<div>that is a great idea! </div>
<div> </div>
<div>Regards</div>
<div> </div>
<div>Tobias Saueressig</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 19:40 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">Am 17.12.20 um 17:02 schrieb Tobias Saueressig:<br/>
> Dear Guido,<br/>
> that looks fantastic. This makes it even better! Thank you. For all<br/>
> people that publish in the JAMA Network that is very helpful.<br/>
<br/>
The following auxiliary R function could be handy in that case:<br/>
<br/>
JAMAlabels <- function(author, year, reference) {<br/>
res <- NA<br/>
for (i in seq(along = author))<br/>
res[i] <-<br/>
as.expression(substitute(study^ref~(year),<br/>
list(study = author[i],<br/>
ref = reference[i],<br/>
year = year[i])))<br/>
##<br/>
res<br/>
}<br/>
<br/>
refs <- 20 + seq_len(nrow(Fleiss1993bin))<br/>
##<br/>
mylabs <-<br/>
JAMAlabels(Fleiss1993bin$study, Fleiss1993bin$year, refs)<br/>
<br/>
I will probably add this function to R package meta with the next update.<br/>
<br/>
BW Guido<br/>
</div>
</div>
</div>
</div></div></body></html>