Nothing
rpartEval <-
function(y, wt, parms){
# Set a unique label
label <- hmp.pkg.env$EVAL_COUNT_RPART
hmp.pkg.env$EVAL_COUNT_RPART <- hmp.pkg.env$EVAL_COUNT_RPART + 1
dev <- DM.MoM(y)$loglik * -1
# Skip any infinite LL comparisons (makes lrt 0)
if(dev == Inf || dev == -Inf)
dev <- 0
list(label=label, deviance=dev)
}
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.