is.mostLikelyEvent <- function(Probability.Table, event, threshold.vector) {
return(as.numeric(Probability.Table[event , ] > threshold.vector))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.