predict_svm <- function(mod, y){
preds <- predict(mod, y, probability=T)
preds <- attr(preds,"probabilities")[,2]
return(preds)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.