typo in error message of auc_roc

2015-10-13 13:22:44 +02:00
parent c7fded35a6
commit 53abe49fa5
1 changed files with 1 additions and 1 deletions
@@ -393,7 +393,7 @@ accuracy <- function(ytrue, yhat) {
 auc_roc <- function(ytrue, yscore, decreasing=TRUE, top=1.0) {
  if (length(ytrue) != length(yscore)) {
    stop(sprintf("length of ytrue(%d) should be the same as length of ycore(%d).", 
-                 length(true), length(yscore) ))
+                 length(ytrue), length(yscore) ))
  }
  tryCatch( {
    pred <- ROCR::prediction(yscore,  ytrue)