Data

Code

source("R/nma_functions.R")
dat <- load_pairwise_data()

Data preview

Code

DT::datatable(dat, options = list(pageLength = 10, scrollX = TRUE))

Data summary

Code

knitr::kable(summarise_pairwise_data(dat))

metric	value
Studies	15
Pairwise rows	15
Treatments	15
Network connected	TRUE
Missing cells (%)	0

Treatment nodes

Code

treatments <- sort(unique(c(dat$treat1, dat$treat2)))
knitr::kable(data.frame(Treatment = treatments))

Treatment
Acal
Acal + O
BR
Clb
Clb + O
FCR
FCR + BR
I
I + R
Ibr + O
Ibr + Ven
Ven + O
Ven + O + Ibr
Ven + R
Zanubrutinib

---
title: "Data"
---

```{r}
source("R/nma_functions.R")
dat <- load_pairwise_data()
```

## Data preview

```{r}
DT::datatable(dat, options = list(pageLength = 10, scrollX = TRUE))
```

## Data summary

```{r}
knitr::kable(summarise_pairwise_data(dat))
```

## Treatment nodes

```{r}
treatments <- sort(unique(c(dat$treat1, dat$treat2)))
knitr::kable(data.frame(Treatment = treatments))
```