"tabulate.ext.err.func" <- function(pred.obj, obs.grp) return(1 - sum(diag(table(pred.obj, obs.grp)))/length(obs.grp))
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.