##
## Taken from the gg_roc example
rfsrc_iris <- rfsrc(Species ~ ., data = iris)
if (FALSE) {
gg_dta <- gg_roc(rfsrc_iris, which_outcome=1)
calc_auc(gg_dta)
}
gg_dta <- gg_roc(rfsrc_iris, which_outcome=2)
calc_auc(gg_dta)
## randomForest tests
rf_iris <- randomForest::randomForest(Species ~ ., data = iris)
gg_dta <- gg_roc(rfsrc_iris, which_outcome=2)
calc_auc(gg_dta)
Run the code above in your browser using DataLab