From 937772ceb77f3213119d736da8e2fad620d16add Mon Sep 17 00:00:00 2001
From: Gertjan van den Burg <gertjanvandenburg@gmail.com>
Date: Fri, 30 Mar 2018 17:08:49 +0100
Subject: Update some return values

---
 R/gensvm.grid.R | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'R/gensvm.grid.R')

diff --git a/R/gensvm.grid.R b/R/gensvm.grid.R
index 613b718..6db768c 100644
--- a/R/gensvm.grid.R
+++ b/R/gensvm.grid.R
@@ -156,6 +156,11 @@ gensvm.grid <- function(X, y, param.grid='tiny', refit=TRUE, scoring=NULL, cv=3,
     n.features <- ncol(X)
     n.classes <- length(unique(y))
 
+    if (n.objects != length(y)) {
+        cat("Error: X and y are not the same length.\n")
+        return(NULL)
+    }
+
     if (is.character(param.grid)) {
         if (param.grid == 'tiny') {
             param.grid <- gensvm.load.tiny.grid()
-- 
cgit v1.2.3