Merge pull request benhamner#19 from eduardofv/master

Validation for empty vectors
ledell · Sep 9, 2015 · 9a637ae · 9a637ae
2 parents cf45192 + 9479091
commit 9a637ae
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/R/metrics.r b/R/R/metrics.r
@@ -189,6 +189,11 @@ apk <- function(k, actual, predicted)
 #' @export
 mapk <- function (k, actual, predicted)
 {
+    if( length(actual)==0 || length(predicted)==0 ) 
+    {
+	    return(0.0)
+    }
+
     scores <- rep(0, length(actual))
     for (i in 1:length(scores))
     {