From 4df4236f22489a6eabc51deeb0c22dce8c7748a4 Mon Sep 17 00:00:00 2001 From: Gertjan van den Burg Date: Fri, 30 Mar 2018 22:03:53 +0100 Subject: Return invisibly on error --- R/gensvm.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'R/gensvm.R') diff --git a/R/gensvm.R b/R/gensvm.R index 425bf9b..acc39ef 100644 --- a/R/gensvm.R +++ b/R/gensvm.R @@ -138,10 +138,10 @@ gensvm <- function(X, y, p=1.0, lambda=1e-8, kappa=0.0, epsilon=1e-6, if (gamma == 'auto') gamma <- 1.0/n.features - if (!gensvm.validate.params(p=p, kappa=kappa, lambda=lambda, + if (!gensvm.validate.params(p=p, kappa=kappa, lambda=lambda, epsilon=epsilon, gamma=gamma, weights=weights, kernel=kernel)) - invisible(NULL) + return(invisible(NULL)) # Convert weights to index weight.idx <- which(c("unit", "group") == weights) -- cgit v1.2.3