Nothing
ROCmodel <-function(Scores, labels, iicc){
require("ROCR")
AREA<-perf<-lapply(seq(1, length(Scores), 1), function(x){})
for (j in c(1:length(Scores))){
pred<-prediction(Scores[[j]],labels[[j]])
perf[[j]]<-performance(pred,"tpr","fpr")
r<-performance(pred,'auc')
AREA[[j]]<-as.numeric(slot(r,"y.values"))
}
bestparameter<-chooseModel(AREA, iicc)
iicc$parameterIdeal<-iicc$parametersIdeal<-bestparameter$parameterIdeal
FinalModel<- Models(iicc)
iicc$model<-FinalModel
y<-list(Area=AREA, parameters=iicc$parametersIdeal, model=iicc$model)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.