Nothing
predprob <- function(obj, ...){
UseMethod("predprob")
}
predprob.ideal <- function(obj, ...){
if(!inherits(obj, "ideal"))
stop("predprob.ideal only defined for objects of class ideal")
else
predict.ideal(obj,...)$pred.probs
}
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.