Nothing
applyLearner <-
function(learner,X){
leftIx <- 1:nrow(X)
predY <- rep("",nrow(X))
for(i in 1:nrow(learner)){
ixMatch <- eval(parse(text=paste("which(",learner[i,"condition"], ")")) )
ixMatch <- intersect(leftIx,ixMatch)
if(length(ixMatch)>0){
predY[ixMatch] <- learner[i,"pred"]
leftIx <- setdiff(leftIx,ixMatch)
}
if(length(leftIx)==0){
break
}
}
return(predY)
}
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.