gen_confusion_matrix<-function(data,colName){
#table(data[colName],predic > 0.5)
predic<-
confusionMatrix(predic,data[colName])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.