Description Usage Arguments Examples
Create a new (empty) medley object
1 2 | create.medley(x, y, label = "", errfunc = rmse,
base.model = NULL, folds = 8)
|
x |
matrix of predictors |
y |
vector of response values |
label |
a unique label for this medley (used in status messages) |
errfunc |
an error metric for this medley |
base.model |
a function to use as a baseline model |
folds |
the default number of cross-validation folds to use |
1 2 3 4 5 6 7 8 9 10 11 | require(e1071);
data(swiss);
x <- swiss[,1:5];
y <- swiss[,6];
train <- sample(nrow(swiss), 30);
m <- create.medley(x[train,], y[train]);
for (gamma in c(1e-3, 2e-3, 5e-3, 1e-2, 2e-2, 5e-2, 1e-1, 2e-1, 5e-1, 1)) {
m <- add.medley(m, svm, list(gamma=gamma));
}
p <- predict(m, x[-train,]);
rmse(p, y[-train]);
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.