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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.