<html><head></head><body><div style="font-family: Verdana;font-size: 12.0px;"><div> </div>
<div>Dear Reza,
<div> </div>
<div>thank you for your reply. It worked very well. Thank you for taking the time to write this out!</div>
<div> </div>
<div>Regards,</div>
<div> </div>
<div>Tobias</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> Mittwoch, 23. Dezember 2020 um 21:17 Uhr<br/>
<b>Von:</b> "Reza Norouzian" <rnorouzian@gmail.com><br/>
<b>An:</b> t.saueressig@gmx.de<br/>
<b>Cc:</b> "R meta" <r-sig-meta-analysis@r-project.org><br/>
<b>Betreff:</b> Re: [R-meta] Robumeta Forest Plot</div>
<div name="quoted-content">
<div>Dear Tobias,
<div> </div>
<div>I believe you can't. But assuming you're talking about an intercept-only model, it is not difficult to use <font face="monospace">forest.default()</font> and <span style="color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">addpoly.default() </span>from <span style="color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">metafor </span>to achieve that purpose. I'm not exactly sure what your specific needs are but assuming your fitted robu model is called x, you can think of something along the lines of (I have not tested the following as I'm using my phone).</div>
<div> </div>
<div>You can easily turn the following into an R function or modify in any other way to fit your situation.</div>
<div> </div>
<div>Reza</div>
<div> </div>
<div><span class="gmail-pl-smi" style="box-sizing: border-box;color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">d</span><span style="color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;"> </span><span class="gmail-pl-k" style="box-sizing: border-box;font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;"><-</span><span style="color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;"> cbind(</span><span class="gmail-pl-smi" style="box-sizing: border-box;color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">x</span><span class="gmail-pl-k" style="box-sizing: border-box;font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">$</span><span class="gmail-pl-smi" style="box-sizing: border-box;color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">data.full</span><span style="color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">, </span><span class="gmail-pl-smi" style="box-sizing: border-box;color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">x</span><span class="gmail-pl-k" style="box-sizing: border-box;font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">$</span><span class="gmail-pl-smi" style="box-sizing: border-box;color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">data</span><span style="color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">, </span><span class="gmail-pl-v" style="box-sizing: border-box;font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">orig.nm</span><span style="color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;"> </span><span class="gmail-pl-k" style="box-sizing: border-box;font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">=</span><span style="color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;"> as.vector(</span><span class="gmail-pl-smi" style="box-sizing: border-box;color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">x</span><span class="gmail-pl-k" style="box-sizing: border-box;font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">$</span><span class="gmail-pl-smi" style="box-sizing: border-box;color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">study_orig_id</span><span style="color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">))</span> </div>
<div><span class="gmail-pl-v" style="box-sizing: border-box;font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">level</span><span style="color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;background-color: rgb(255,251,221);"> </span><span class="gmail-pl-k" style="box-sizing: border-box;font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;"><-</span><span style="color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;background-color: rgb(255,251,221);"> </span><span class="gmail-pl-smi" style="box-sizing: border-box;color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">.95</span> </div>
<div><font face="monospace">y <- d$effect.size<br/>
vi <- d$var.eff.size<br/>
w <- d$r.weights</font> </div>
<div><span class="gmail-pl-smi" style="box-sizing: border-box;color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">refline</span><span style="color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;"> </span><span class="gmail-pl-k" style="box-sizing: border-box;font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;"><-</span><span style="color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;"> </span><span class="gmail-pl-smi" style="box-sizing: border-box;color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">x</span><span class="gmail-pl-k" style="box-sizing: border-box;font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">$</span><span class="gmail-pl-smi" style="box-sizing: border-box;color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">reg_table</span><span class="gmail-pl-k" style="box-sizing: border-box;font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">$</span><span class="gmail-pl-smi" style="box-sizing: border-box;color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">b.r</span><span style="color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">[[</span><span class="gmail-pl-c1" style="box-sizing: border-box;font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">1</span><span style="color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">]]</span> </div>
<div><font face="monospace">slab <- <span class="gmail-pl-smi" style="box-sizing: border-box;color: rgb(36,41,46);font-size: 12.0px;white-space: pre;">d</span><span class="gmail-pl-k" style="box-sizing: border-box;font-size: 12.0px;white-space: pre;">$</span><span class="gmail-pl-smi" style="box-sizing: border-box;color: rgb(36,41,46);font-size: 12.0px;white-space: pre;">orig.nm</span></font></div>
<font face="monospace">wsize <- 1 </font>
<div><font face="monospace">ES.CI.L <- x$reg_table$CI.L[[1]]<br/>
ES.CI.U <- x$reg_table$CI.U[[1]]</font>
<div> </div>
<div> </div>
<div><font face="monospace">forest.default(x = y, vi = vi, psize = wsize*(w/max(w)),<br/>
level = level,<br/>
refline = refline,<br/>
xlab = "effect size",<br/>
slab = slab,<br/>
cex = 1, </font></div>
<div><font face="monospace">efac = 0, </font><span style="font-family: monospace;"> </span></div>
<div><font face="monospace">mgp = c(1, .3, 0), ...)</font> </div>
<div> </div>
<div><font face="monospace">addpoly.default(</font><span class="gmail-pl-smi" style="box-sizing: border-box;color: rgb(36,41,46);font-family: SFMono-Regular , Consolas , "Liberation Mono" , Menlo , monospace;font-size: 12.0px;white-space: pre;">refline</span><font face="monospace">, <a href="http://ci.lb" target="_blank">ci.lb</a> = ES.CI.L, ci.ub = ES.CI.U, mlab = expression(bold("mean effect ("*mu*")")),<br/>
level = level, cex = .7, col = "cyan", rows = par('usr')[3], font = 2, xpd = NA, border = "magenta")</font>
<table class="gmail-highlight gmail-tab-size gmail-js-file-line-container" style="border-spacing: 0.0px;border-collapse: collapse;color: rgb(36,41,46);font-size: 14.0px;">
<tbody style="box-sizing: border-box;">
</tbody>
</table>
<div>
<div class="gmail_signature">
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div>
<div style="color: rgb(80,0,80);margin: 0.0px;padding: 0.0px;border: 0.0px;font-stretch: inherit;line-height: inherit;vertical-align: baseline;"> </div>
<div style="margin: 0.0px;padding: 0.0px;border: 0.0px;font-stretch: inherit;line-height: inherit;vertical-align: baseline;">
<div style="color: inherit;margin: 0.0px;padding: 0.0px;border: 0.0px;font: inherit;vertical-align: baseline;"> </div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
<div class="gmail_quote">
<div class="gmail_attr">On Wed, Dec 23, 2020 at 12:53 PM <<a href="mailto:t.saueressig@gmx.de" onclick="parent.window.location.href='mailto:t.saueressig@gmx.de'; return false;" target="_blank">t.saueressig@gmx.de</a>> wrote:</div>
<blockquote class="gmail_quote" style="margin: 0.0px 0.0px 0.0px 0.8ex;border-left: 1.0px solid rgb(204,204,204);padding-left: 1.0ex;">
<div>Dear All,
<div> </div>
<div>is there a possibility to include the individual study confidence Intervals as well as the pooled estimate with its confidence Interval in the forest plot in the robumeta package?</div>
<div> </div>
<div>Thanks in advance.</div>
<div> </div>
<div> </div>
<div>Regards</div>
<div> </div>
<div>Tobias Saueressig</div>
<div> </div>
<div> </div>
</div>
_______________________________________________<br/>
R-sig-meta-analysis mailing list<br/>
<a href="mailto:R-sig-meta-analysis@r-project.org" onclick="parent.window.location.href='mailto:R-sig-meta-analysis@r-project.org'; return false;" target="_blank">R-sig-meta-analysis@r-project.org</a><br/>
<a href="https://stat.ethz.ch/mailman/listinfo/r-sig-meta-analysis" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-sig-meta-analysis</a></blockquote>
</div>
</div>
</div>
</div>
</div></div></body></html>