diff options
| author | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-03-27 20:13:13 +0100 |
|---|---|---|
| committer | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-03-27 20:13:13 +0100 |
| commit | 1995049715ec55897047a367fd25e3409eb874ad (patch) | |
| tree | bc29306359083bf08b52951674400775adf30827 /R | |
| parent | update submodule (diff) | |
| download | rgensvm-1995049715ec55897047a367fd25e3409eb874ad.tar.gz rgensvm-1995049715ec55897047a367fd25e3409eb874ad.zip | |
restore original option instead of null
Diffstat (limited to 'R')
| -rw-r--r-- | R/gensvm.refit.R | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/R/gensvm.refit.R b/R/gensvm.refit.R index fab7579..c0bbf20 100644 --- a/R/gensvm.refit.R +++ b/R/gensvm.refit.R @@ -71,12 +71,13 @@ gensvm.refit <- function(fit, X, y, p=NULL, lambda=NULL, kappa=NULL, # this call to gensvm. If we don't set the error handler, R will # unnecessarily drop to a browser() session. We reset the error handler # after the call to gensvm(). + errfunc <- getOption('error') options(error=function() {}) newfit <- gensvm(X, y, p=p, lambda=lambda, kappa=kappa, epsilon=epsilon, weights=weights, kernel=kernel, gamma=gamma, coef=coef, degree=degree, kernel.eigen.cutoff=kernel.eigen.cutoff, verbose=verbose, max.iter=max.iter, seed.V=coef(fit)) - options(error=NULL) + options(error=errfunc) return(newfit) } |