metafor_reporter_2.Rmd

---
title: "metafor test"
output: html_document
---

```{r setup_main, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)

library(metafor)

### Using example from the metafor::reporter() docs

# Copy BCG vaccine data into 'dat'
dat <- dat.bcg

# Calculate log risk ratios and corresponding sampling variances
dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat,
              slab=paste(author, ", ", year, sep=""))

# Random-effects model
res <- rma(yi, vi, data=dat)

```

## Other text for systematic review

Text on the other aspects of the review process: number of records included, PRISMA flow, table of characteristics, risk-of-bias, etc.

## Meta-analysis Methods and Results

```{r pressure, echo=FALSE}
reporter(res, dir = ".", open = FALSE)
```

```{r, child=c('report_res.rmd')}
```