bincap <-
function (response, predicted, true = "1")
{
return(new(Class = "bincap", response = response, predicted = predicted,
true = true))
}
multcap <-
function (response, predicted)
{
return(new(Class = "multcap", response = response, predicted = predicted))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.