Displaying 1 result from an estimated 1 matches for "val_out".
Did you mean:
val_opt
2006 Mar 25
2
R gets slow
...);
dd = read.table("sampling/adapteddataSet");
attach(dd);
ddv = read.table("sampling/adaptedvalidationDataSet");
attach(ddv);
dd[,1] = factor(dd[,1]);
ddv[,1] = factor(ddv[,1]);
attach(dd);
tr_in = as.matrix(dd[,2:(1 + 1)]);
tr_out = dd[,1];
val_in = as.matrix(ddv[,2:(1 + 1)]);
val_out = ddv[,1];
t = tune(svm, kernel = "radial", train.x = tr_in, train.y = tr_out,
validation.x = val_in, validation.y = val_out,
range = list( gamma = 2^(-1:1), cost = 2^(2:4) ), tunecontrol =
tune.control(sampling = "fix") )
z = t$best.model
save(z, file = "./models/1/20&q...