data(dfr) # Results for AutoML Predictions
lapply(dfr[c(1, 2)], head)
# ROC Data for Binomial Model
roc1 <- ROC(dfr$class2$tag, dfr$class2$scores)
lapply(roc1, head)
# ROC Data for Multi-Categorical Model
roc2 <- ROC(dfr$class3$tag, dfr$class3$score,
multis = subset(dfr$class3, select = -c(tag, score))
)
lapply(roc2, head)
Run the code above in your browser using DataLab