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 /R | |
| parent | Properly handle factors for string parameters in gridsearch (diff) | |
| download | rgensvm-515ad24e46680fe2dfdc3418d531101c5ab9a688.tar.gz rgensvm-515ad24e46680fe2dfdc3418d531101c5ab9a688.zip | |
Add example for nonlinear classification
Diffstat (limited to 'R')
| -rw-r--r-- | R/gensvm.grid.R | 5 |
1 files changed, 5 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) { |