data(ht01.twoclass, package = "HandTill2001")
message(" == AUC for a binary class response")
message(" == == HandTill2001 result:")
HandTill2001::auc(HandTill2001::bincap(
response = as.factor(ht01.twoclass[["observed"]]),
predicted = ht01.twoclass[["predicted"]],
true = "1"
))
if (FALSE) {
message(" == == ROCR result:")
ROCR::performance(ROCR::prediction(
labels = ht01.twoclass[["observed"]],
predictions = ht01.twoclass[["predicted"]]
),
measure = "auc"
)@y.values
}
data(ht01.multipleclass, package = "HandTill2001")
message(" == AUC for a multiple class response")
predicted <- as.matrix(ht01.multipleclass[, levels(ht01.multipleclass[["observed"]])])
HandTill2001::auc(HandTill2001::multcap(
response = ht01.multipleclass[["observed"]],
predicted = predicted
))
Run the code above in your browser using DataLab