Commit 9aae91a8 authored by Edi Prifti's avatar Edi Prifti

silent messages from AUC

improve printModel
parent c825784c
......@@ -929,7 +929,7 @@ evaluateAUC <- function(score, y, sign = '>')
auc <- NA
}else
{
rocobj <- roc(response = y, predictor = score, direction = sign)
rocobj <- suppressMessages(roc(response = y, predictor = score, direction = sign))
auc <- as.numeric(rocobj$auc)
}
......
......@@ -2102,7 +2102,7 @@ printModel <- function(mod, method = "short", score = "fit_")
}else
{
# Bin(inter) or Ter(inter)
signs <- rep("+ ",length(mod$coeffs_))
signs <- rep("+",length(mod$coeffs_))
if(all(!ind.pos))
{
term.pos <- "0"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment