# Use RevMan 5 settings
oldset <- settings.meta("RevMan5")
data(caffeine)
m1 <- metabin(h.caf, n.caf, h.decaf, n.decaf, sm = "OR",
data = caffeine, studlab = paste(study, year))
# Add risk of bias assessment to meta-analysis
m2 <- rob(D1, D2, D3, D4, D5, overall = rob, data = m1, tool = "rob2")
# Print risk of bias assessment
rob(m2)
if (FALSE) {
# Weighted bar plot (R package 'robvis' must be available)
if (requireNamespace("robvis", quietly = TRUE))
barplot(rob(m2))
}
# Use previous settings
settings.meta(oldset)
Run the code above in your browser using DataLab