data(aSAH)
## Not run:
# # Syntax (response, predictor):
# ci.coords(aSAH$outcome, aSAH$s100b, x="best", input = "threshold",
# ret=c("specificity", "ppv", "tp"))
#
# # With a roc object:
# rocobj <- roc(aSAH$outcome, aSAH$s100b)
# ci.coords(rocobj, x=0.9, input = "sensitivity", ret="specificity")
# ci.coords(rocobj, x=0.9, input = "sensitivity", ret=c("specificity", "ppv", "tp"))
# ci.coords(rocobj, x=c(0.1, 0.5, 0.9), input = "sensitivity", ret="specificity")
# ci.coords(rocobj, x=c(0.1, 0.5, 0.9), input = "sensitivity", ret=c("specificity", "ppv", "tp"))
#
# # With a smoothed roc:
# rocobj <- roc(aSAH$outcome, aSAH$s100b)
# ci.coords(smooth(rocobj), x=0.9, input = "sensitivity", ret=c("specificity", "ppv", "tp"))
#
# # Return everything we can:
# rets <- c("threshold", "specificity", "sensitivity", "accuracy", "tn", "tp", "fn", "fp", "npv",
# "ppv", "1-specificity", "1-sensitivity", "1-accuracy", "1-npv", "1-ppv")
# ci.coords(rocobj, x="best", input = "threshold", ret=rets)
# ## End(Not run)
Run the code above in your browser using DataLab