I am conducting a meta-analysis of diagnostic test accuracy studies comparing myocardial perfusion scintigraphy vs coronary angiography using the mada
R package.
I have completed the computations for the Reitsma bivariate model, as follows:
install.packages(mada)
library(mada)
author_year <- c("Ben-Haim 2010", "Duvall 2011", "Fiechter 2011", "Ben Haim 2014",
"Chowdhury 2014", "Duvall 2014", "Goto 2014", "Mouden 2014",
"Nishiyama 2014", "Barone-Rochette 2015", "Gimelli 2015",
"Liu 2015", "Nakazato 2015", "Perrin 2015", "Shiraishi 2015",
"Sharir 2016")
TP <- c(4, 121, 44, 7, 74, 31, 51, 12, 46, 73, 103, 27, 31, 93, 12, 122)
TN <- c(0, 38, 10, 10, 61, 37, 187, 61, 18, 13 ,14, 130, 23, 26, 32, 111)
FP <- c(1, 65, 5, 1, 16, 23, 73, 19, 4, 13, 10, 46, 5, 17, 9, 23)
FN <- c(0, 6, 7, 1, 14, 24, 11, 8, 8, 5, 10, 8, 8, 13, 2, 15)
mydata <- data.frame(author_year, cbind(TP, TN, FP, FN))
mydata
fit.reitsma <- reitsma(mydata)
summary(fit.reitsma)
However, the AUC is only provided as point estimate (0.833).
I would like to obtain also 95% confidence intervals for the AUC, but the package does not seem to provide them, nor a standard error to obtain them indirectly.
I guess it could be done with bootstrap (eg the boot
package), but I am unable to do it.
Can you give me some suggestions?