Nothing
fitted.CCProfile <- function(object, decision.values=FALSE)
{
res <- object@pred
if (decision.values)
attr(res, "decision.values") <- object@disc
res
}
setMethod("fitted", signature(object="CCProfile"), fitted.CCProfile)
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.