From a15c5d21b993e47b7545e16ddf1228ad6e6a38fc Mon Sep 17 00:00:00 2001
From: Gertjan van den Burg <gertjanvandenburg@gmail.com>
Date: Fri, 30 Mar 2018 22:01:52 +0100
Subject: Add check for y input

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

(limited to 'R')

diff --git a/R/gensvm.R b/R/gensvm.R
index 0464322..425bf9b 100644
--- a/R/gensvm.R
+++ b/R/gensvm.R
@@ -116,6 +116,11 @@ gensvm <- function(X, y, p=1.0, lambda=1e-8, kappa=0.0, epsilon=1e-6,
 {
     call <- match.call()
 
+    if (dim(as.matrix(y))[2] > 1) {
+        cat("Error: y can not have more than one column\n")
+        return(invisible(NULL))
+    }
+
     # Generate the random.seed value in R if it is NULL. This way users can 
     # reproduce the run because it is returned in the output object.
     if (is.null(random.seed))
-- 
cgit v1.2.3