GBT.pushthebutton <-
function( Y,
X,
par.range,
num.iterations,
num.repeats){
temp.tune <- data.frame()
for( i in 1:num.iterations){
temp <- GBT.try.params.uniform.step1( Y=Y,
X=X,
par.range=par.range,
num.repeats=num.repeats )
temp.tune <- rbind(temp.tune,temp)
}
temp.tune <- temp.tune[order(-temp.tune$auc),]
return(temp.tune)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.