network.leverage.plot {bnma}

Make a leverage plot

Description

This function makes a leverage vs. square root of residual deviance plot (mean for each study)

Usage

network.leverage.plot(result, per.study = FALSE)

Arguments

result

Object created by network.run function

per.study

Indicator for using an average square root of residual deviance for each study instead of for each arm. Default is FALSE.

Value

None

Examples

network <- with(blocker, {
 network.data(Outcomes, Study, Treat, N = N, response = "binomial")
})

result <- network.run(network)
network.leverage.plot(result)