Nothing
probFunction <- function(method, modelFit, newdata, preProc = NULL, param = NULL)
{
if(!is.null(preProc)) newdata <- predict(preProc, newdata)
obsLevels <- levels(modelFit)
classProb <- method$prob(modelFit = modelFit,
newdata = newdata,
submodels = param)
if(!is.data.frame(classProb) & is.null(param))
{
classProb <- as.data.frame(classProb)
if(!is.null(obsLevels)) classprob <- classProb[, obsLevels]
}
classProb
}
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.