diff options
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) |