typo in error message of auc_roc

claesenm · Oct 13, 2015 · 53abe49 · 53abe49
1 parent c7fded3
commit 53abe49
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/wrappers/R/R/crossvalidation.R b/wrappers/R/R/crossvalidation.R
@@ -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)