require(mada)
data(asthma)
fit1 <- reitsma(asthma) # DTA analysis using the Reitsma model
summary(fit1)
plot(fit1) # Plot the SROC curves
points(fpr(asthma), sens(asthma), cex = .5)
attach(asthma)
AUC_IF(TP, FP, FN, TN, B=2) # Influential analysis based on the AUC
detach(asthma)
# This is an example command for illustration. B should be >= 1000.
Run the code above in your browser using DataLab