diff options
| author | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-04-05 15:35:57 -0400 |
|---|---|---|
| committer | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-04-05 15:35:57 -0400 |
| commit | 2224f89c05a5540102101b1310e120c12d533028 (patch) | |
| tree | bb5ea2d6f826cade03aa697e17f7f03d300cc475 /man/gensvm.grid.Rd | |
| parent | fix type of ZV matrix (diff) | |
| download | rgensvm-2224f89c05a5540102101b1310e120c12d533028.tar.gz rgensvm-2224f89c05a5540102101b1310e120c12d533028.zip | |
don't run a bunch of examples to make check faster
Diffstat (limited to 'man/gensvm.grid.Rd')
| -rw-r--r-- | man/gensvm.grid.Rd | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/man/gensvm.grid.Rd b/man/gensvm.grid.Rd index 147c044..a19b631 100644 --- a/man/gensvm.grid.Rd +++ b/man/gensvm.grid.Rd @@ -131,8 +131,10 @@ be the same as the param.grid in the input. x <- iris[, -5] y <- iris[, 5] +\dontrun{ # use the default parameter grid grid <- gensvm.grid(x, y, verbose=TRUE) +} # use a smaller parameter grid pg <- expand.grid(p=c(1.0, 1.5, 2.0), kappa=c(-0.9, 1.0), epsilon=c(1e-3)) @@ -141,6 +143,7 @@ grid <- gensvm.grid(x, y, param.grid=pg) # print the result print(grid) +\dontrun{ # Using a custom scoring function (accuracy as percentage) acc.pct <- function(yt, yp) { return (100 * sum(yt == yp) / length(yt)) } grid <- gensvm.grid(x, y, scoring=acc.pct) @@ -149,6 +152,7 @@ grid <- gensvm.grid(x, y, scoring=acc.pct) 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) +} } \references{ |