From d87788f7e37c3c63ed0ad06c65a602ab6b744dd1 Mon Sep 17 00:00:00 2001
From: Gertjan van den Burg <gertjanvandenburg@gmail.com>
Date: Fri, 30 Mar 2018 17:36:06 +0100
Subject: return invisibly

---
 R/gensvm.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'R/gensvm.R')

diff --git a/R/gensvm.R b/R/gensvm.R
index b70be78..41a08d7 100644
--- a/R/gensvm.R
+++ b/R/gensvm.R
@@ -136,7 +136,7 @@ gensvm <- function(X, y, p=1.0, lambda=1e-8, kappa=0.0, epsilon=1e-6,
     if (!gensvm.validate.params(p=p, kappa=kappa, lambda=lambda, 
                                 epsilon=epsilon, gamma=gamma, weights=weights,
                                 kernel=kernel))
-        return(NULL)
+        invisible(NULL)
 
     # Convert weights to index
     weight.idx <- which(c("unit", "group") == weights)
-- 
cgit v1.2.3