diff options
| author | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-03-28 13:42:39 +0100 |
|---|---|---|
| committer | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-03-28 13:42:39 +0100 |
| commit | 515ad24e46680fe2dfdc3418d531101c5ab9a688 (patch) | |
| tree | e811aac6a094ee74e2a4b6fab0190e85885b8734 | |
| parent | Properly handle factors for string parameters in gridsearch (diff) | |
| download | rgensvm-515ad24e46680fe2dfdc3418d531101c5ab9a688.tar.gz rgensvm-515ad24e46680fe2dfdc3418d531101c5ab9a688.zip | |
Add example for nonlinear classification
| -rw-r--r-- | R/gensvm.grid.R | 5 | ||||
| -rw-r--r-- | man/gensvm.grid.Rd | 5 |
2 files changed, 10 insertions, 0 deletions
diff --git a/R/gensvm.grid.R b/R/gensvm.grid.R index 3dad021..613b718 100644 --- a/R/gensvm.grid.R +++ b/R/gensvm.grid.R @@ -142,6 +142,11 @@ #' acc.pct <- function(yt, yp) { return (100 * sum(yt == yp) / length(yt)) } #' grid <- gensvm.grid(x, y, scoring=acc.pct) #' +#' # With RBF kernel and very verbose progress printing +#' pg <- expand.grid(kernel=c('rbf'), gamma=c(1e-2, 1e-1, 1, 1e1, 1e2), +#' lambda=c(1e-8, 1e-6), max.iter=c(5000)) +#' grid <- gensvm.grid(x, y, param.grid=pg, verbose=2) +#' gensvm.grid <- function(X, y, param.grid='tiny', refit=TRUE, scoring=NULL, cv=3, verbose=0, return.train.score=TRUE) { diff --git a/man/gensvm.grid.Rd b/man/gensvm.grid.Rd index 9fdee96..cc44286 100644 --- a/man/gensvm.grid.Rd +++ b/man/gensvm.grid.Rd @@ -144,6 +144,11 @@ print(grid) acc.pct <- function(yt, yp) { return (100 * sum(yt == yp) / length(yt)) } grid <- gensvm.grid(x, y, scoring=acc.pct) +# With RBF kernel and very verbose progress printing +pg <- expand.grid(kernel=c('rbf'), gamma=c(1e-2, 1e-1, 1, 1e1, 1e2), + lambda=c(1e-8, 1e-6), max.iter=c(5000)) +grid <- gensvm.grid(x, y, param.grid=pg, verbose=2) + } \author{ Gerrit J.J. van den Burg, Patrick J.F. Groenen \cr |