##
## Taken from the gg_roc example
iris.obj <- rfsrc(Species ~ ., data = iris)
roc <- ggRandomForests:::calc_roc.rfsrc(iris.obj, iris.obj$yvar, which.outcome=2, oob=TRUE)
ggRandomForests:::calc_auc(roc)
Run the code above in your browser using DataLab