# FENO dataset
#
data(Schneider2017)
diag1 <- diagmeta(tpos, fpos, tneg, fneg, cutpoint,
studlab = paste(author, year, group),
data = Schneider2017,
log.cutoff = TRUE)
summary(diag1)
print(summary(diag1), digits.prop = 2)
Run the code above in your browser using DataLab