Nothing
#' @S3method summary predictStatusProb
summary.predictStatusProb <- function(object,cuts=seq(0,100,25),...){
table("Predicted risk"=cut(round(100*object,1),
cuts,
include.lowest=TRUE,
labels=paste(paste(cuts[-length(cuts)],cuts[-1],sep="-"),"%",sep="")))
}
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.