Nothing
computeRuleInfor <-
function(instIx,pred,target){
trueCls <- as.character(target[instIx])
err <- 1- length(which(trueCls == pred))/length(trueCls)
return(c(err=err,freq=length(instIx)/length(target)))
}
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.