data(Credit)
if (FALSE) {
hE <-hybridEnsemble(x=Credit[1:100,names(Credit) != 'Response'],
y=Credit$Response[1:100],
RF.ntree=50,
AB.iter=50,
NN.size=5,
NN.decay=0,
SV.gamma = 2^-15,
SV.cost = 2^-5,
SV.degree=2,
SV.kernel='radial')
predictions <- predict(hE, newdata=Credit[1:100,names(Credit) != 'Response'])
}
Run the code above in your browser using DataLab