View source: R/network.summary.R

calculate.deviance | R Documentation |

Calculates deviance statistics. This function automatically called in `network.run`

and the deviance statistics are stored after sampling is finished.

```
calculate.deviance(result)
```

`result` |
Object created by |

`Dbar` |
Overall residual deviance |

`pD` |
Sum of leverage_arm (i.e. total leverage) |

`DIC` |
Deviance information criteria (sum of Dbar and pD) |

`data.points` |
Total number of arms in the meta analysis |

`dev_arm` |
Posterior mean of the residual deviance in each trial arm |

`devtilda_arm` |
Deviance at the posterior mean of the fitted values |

`leverage_arm` |
Difference between dev_arm and devtilda_arm for each trial |

`rtilda_arm` |
Posterior mean of the fitted value for binomial and multinomial |

`ybar_arm` |
Posterior mean of the fitted value for normal |

S. Dias, A.J. Sutton, A.E. Ades, and N.J. Welton (2013a), *A Generalized Linear Modeling Framework for Pairwise and Network Meta-analysis of Randomized Controlled Trials*, Medical Decision Making 33(5):607-617. \Sexpr[results=rd]{tools:::Rd_expr_doi("10.1177/0272989X12458724")}

```
#parkinsons
network <- with(parkinsons, {
network.data(Outcomes, Study, Treat, SE = SE, response = "normal")
})
result <- network.run(network)
calculate.deviance(result)
```

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.