diff options
| author | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2020-08-30 21:40:23 +0100 |
|---|---|---|
| committer | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2020-08-30 21:40:23 +0100 |
| commit | 11be90a6e2e9921da3b2b6580815fda457a04023 (patch) | |
| tree | 4cf676d76151a1b3e9f23e3dd3e7104595b50c8c /R/predict.gensvm.R | |
| parent | Add cran-release to buildignore (diff) | |
| download | rgensvm-11be90a6e2e9921da3b2b6580815fda457a04023.tar.gz rgensvm-11be90a6e2e9921da3b2b6580815fda457a04023.zip | |
Properly handle errors
Diffstat (limited to 'R/predict.gensvm.R')
| -rw-r--r-- | R/predict.gensvm.R | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/R/predict.gensvm.R b/R/predict.gensvm.R index 43a0d52..b9a9d7a 100644 --- a/R/predict.gensvm.R +++ b/R/predict.gensvm.R @@ -61,9 +61,7 @@ predict.gensvm <- function(object, newdata, add.rownames=FALSE, ...) # Sanity check if (ncol(x.test) != object$n.features) { - cat("Error: Number of features of fitted model and testing", - "data disagree.\n") - return(invisible(NULL)) + stop("Error: Number of features of fitted model and testing data disagree.\n") } x.train <- eval.parent(object$call$x) |