library(HandTill2001)
data(ht01.twoclass)
data(ht01.multipleclass)
message("== AUC for a two class response")
message(" == == ROCR result:")
library(ROCR)
performance(prediction(labels=ht01.twoclass$observed
, predictions=ht01.twoclass$predicted
)
, measure = "auc")
message("== == ht01 result:")
auc(bincap(
response = as.factor(ht01.twoclass$observed)
, predicted = ht01.twoclass$predicted
, true = "1"
))
message("== AUC for a multiple class response")
auc(multcap(
response = ht01.multipleclass$observed
, predicted = as.matrix(ht01.multipleclass[, levels(ht01.multipleclass$observed)])
))Run the code above in your browser using DataLab