diff options
Diffstat (limited to 'R/gensvm.R')
| -rw-r--r-- | R/gensvm.R | 11 |
1 files changed, 4 insertions, 7 deletions
@@ -91,14 +91,11 @@ #' x <- iris[, -5] #' y <- iris[, 5] #' -#' # fit using the default parameters -#' fit <- gensvm(x, y) -#' -#' # fit and show progress +#' # fit using the default parameters and show progress #' fit <- gensvm(x, y, verbose=TRUE) #' #' # fit with some changed parameters -#' fit <- gensvm(x, y, lambda=1e-8) +#' fit <- gensvm(x, y, lambda=1e-6) #' #' # Early stopping defined through epsilon #' fit <- gensvm(x, y, epsilon=1e-3) @@ -111,8 +108,8 @@ #' fit <- gensvm(x, y, kernel='poly', degree=2, gamma=1.0, max.iter=1000) #' #' # Setting the random seed and comparing results -#' fit <- gensvm(x, y, random.seed=123) -#' fit2 <- gensvm(x, y, random.seed=123) +#' fit <- gensvm(x, y, random.seed=123, max.iter=1000) +#' fit2 <- gensvm(x, y, random.seed=123, max.iter=1000) #' all.equal(coef(fit), coef(fit2)) #' #' |