From 11be90a6e2e9921da3b2b6580815fda457a04023 Mon Sep 17 00:00:00 2001 From: Gertjan van den Burg Date: Sun, 30 Aug 2020 21:40:23 +0100 Subject: Properly handle errors --- R/gensvm.train.test.split.R | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'R/gensvm.train.test.split.R') diff --git a/R/gensvm.train.test.split.R b/R/gensvm.train.test.split.R index cd40ecc..680743c 100644 --- a/R/gensvm.train.test.split.R +++ b/R/gensvm.train.test.split.R @@ -60,8 +60,7 @@ gensvm.train.test.split <- function(x, y=NULL, train.size=NULL, test.size=NULL, return.idx=FALSE) { if (!is.null(y) && dim(as.matrix(x))[1] != dim(as.matrix(y))[1]) { - cat("Error: First dimension of x and y should be equal.\n") - return + stop("Error: First dimension of x and y should be equal.\n") } n.objects <- dim(as.matrix(x))[1] -- cgit v1.2.3