diff options
| author | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-04-05 11:52:48 -0400 |
|---|---|---|
| committer | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-04-05 11:52:48 -0400 |
| commit | 8cfaa3e50d6b96605b9efbc37d1b628bac29f324 (patch) | |
| tree | 7521d2d1165bf1efe3d2d8b255e69389e14787f5 /R | |
| parent | update submodule (diff) | |
| download | rgensvm-8cfaa3e50d6b96605b9efbc37d1b628bac29f324.tar.gz rgensvm-8cfaa3e50d6b96605b9efbc37d1b628bac29f324.zip | |
make examples faster
Diffstat (limited to 'R')
| -rw-r--r-- | R/gensvm.R | 4 | ||||
| -rw-r--r-- | R/plot.gensvm.R | 2 |
2 files changed, 3 insertions, 3 deletions
@@ -107,8 +107,8 @@ #' fit <- gensvm(x, y, max.iter=1000) #' #' # Nonlinear training -#' fit <- gensvm(x, y, kernel='rbf') -#' fit <- gensvm(x, y, kernel='poly', degree=2, gamma=1.0) +#' fit <- gensvm(x, y, kernel='rbf', max.iter=5000) +#' fit <- gensvm(x, y, kernel='poly', degree=2, gamma=1.0, max.iter=5000) #' #' # Setting the random seed and comparing results #' fit <- gensvm(x, y, random.seed=123) diff --git a/R/plot.gensvm.R b/R/plot.gensvm.R index 054c374..500adf5 100644 --- a/R/plot.gensvm.R +++ b/R/plot.gensvm.R @@ -66,7 +66,7 @@ #' # plot a 2-d model #' xx <- x[y %in% c('versicolor', 'virginica'), ] #' yy <- y[y %in% c('versicolor', 'virginica')] -#' fit <- gensvm(xx, yy, kernel='rbf', max.iter=5000) +#' fit <- gensvm(xx, yy, kernel='rbf', max.iter=1000) #' plot(fit) #' plot.gensvm <- function(x, labels, newdata=NULL, with.margins=TRUE, |