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]);
Run the code above in your browser using DataLab