"predict.MajorityClassifier" <- function(object, newdata){
fitted <- rep(object$majority, nrow(newdata))
if(! is.null(rownames(x))) names(fitted) <- rownames(x)
return(fitted)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.