## execute analysis
if (FALSE) {
# Example: data from Glas et al. (2003).....................................
data(glas)
glas.t <- glas[glas$marker == "Telomerase", 1:4]
glas.m1 <- metadiag(glas.t, re = "normal", link = "logit")
bsroc(glas.m1)
bsroc(glas.m1, plot.post.bauc = TRUE)
# Example: data from Scheidler et al. (1997)
# In this example the range of the observed FPR is less than 20%.
# Calculating the BSROC curve makes no sense! You will get a warning message!
data(mri)
mri.m <- metadiag(mri)
bsroc(mri.m)
}
Run the code above in your browser using DataLab