R/predict.MajorityClassifier.R

"predict.MajorityClassifier" <- function(object, newdata){
  
  fitted <- rep(object$majority, nrow(newdata))
  
  if(! is.null(rownames(x))) names(fitted) <- rownames(x)
  
  return(fitted)
}
TommyJones/classifieR documentation built on May 9, 2019, 5:11 p.m.