Displaying 3 results from an estimated 3 matches for "my_probs".
Did you mean:
mg_probe
2017 Jun 26
3
Jagged ROC curves?
...de, let me know if you'd like
more details:
#####
## generate roc and auc values
#####
library(pROC)
library(AUCRF)
getROC <- function(d1train,d1test){
my_model <- AUCRF(formula= status ~ ., data=d1train,
ranking='MDA',ntree=1000,pdel=0.05)
my_opt_model <- my_model$RFopt
my_probs <- predict(my_opt_model, d1test, type = 'prob')
my_roc <- roc(d1test[,resp_col] ~ my_probs[,2])
aucval <- round(as.numeric(my_roc$auc),4)
return(my_roc)
}
roc_1 <- getROC(dat1,dat1test)
plot.roc(roc_1,col="brown3")
> roc_1
Call:
roc.formula(formula = d1test...
2017 Jun 26
0
Jagged ROC curves?
...#
> ## generate roc and auc values
> #####
> library(pROC)
> library(AUCRF)
>
> getROC <- function(d1train,d1test){
> my_model <- AUCRF(formula= status ~ ., data=d1train,
> ranking='MDA',ntree=1000,pdel=0.05)
> my_opt_model <- my_model$RFopt
>
> my_probs <- predict(my_opt_model, d1test, type = 'prob')
> my_roc <- roc(d1test[,resp_col] ~ my_probs[,2])
> aucval <- round(as.numeric(my_roc$auc),4)
> return(my_roc)
> }
>
>
> roc_1 <- getROC(dat1,dat1test)
> plot.roc(roc_1,col="brown3")
>
>...
2017 Jun 26
0
Jagged ROC curves?
...#####
> > library(pROC)
> > library(AUCRF)
> >
> > getROC <- function(d1train,d1test){
> > my_model <- AUCRF(formula= status ~ ., data=d1train,
> > ranking='MDA',ntree=1000,pdel=0.05)
> > my_opt_model <- my_model$RFopt
> >
> > my_probs <- predict(my_opt_model, d1test, type = 'prob')
> > my_roc <- roc(d1test[,resp_col] ~ my_probs[,2])
> > aucval <- round(as.numeric(my_roc$auc),4)
> > return(my_roc)
> > }
> >
> >
> > roc_1 <- getROC(dat1,dat1test)
> > plot.roc(ro...