R/predict.singleton.R

predict.singleton <-
function(object, type = c('response', 'class', 'nonzero'), ...)
{
  type = match.arg(type)
  if (type == 'nonzero') return(NULL)
  return(object[[type]])
}
saberpowers/customizedTraining documentation built on May 30, 2019, 8:27 a.m.