data(Credit)
if (FALSE) {
CVhE <- CVhybridEnsemble(x=Credit[1:200,names(Credit) != 'Response'],
y=Credit$Response[1:200],
verbose=TRUE,
RF.ntree=50,
KF.rp=1,
AB.iter=50,
NN.size=5,
NN.decay=0,
SV.gamma = 2^-15,
SV.cost = 2^-5,
SV.degree=2,
SV.kernel='radial')
plot(x=CVhE,ROCcurve= FALSE)
plot(x=CVhE,ROCcurve= TRUE)
}
Run the code above in your browser using DataLab