accuracy <- function(actual, prediction){
# How often did it predict the correct class?
return(sum(prediction == actual) / NROW(actual))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.