Displaying 3 results from an estimated 3 matches for "my_opt_model".
2017 Jun 26
3
Jagged ROC curves?
...cible code, but here is some pseudocode, 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
C...
2017 Jun 26
0
Jagged ROC curves?
...'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.ro...
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_...