R/predict.R

In sureshaks/rcane: Different Numeric Optimizations to Estimate Parameter Coefficients

#' @rdname rlm.summaries
#' 
#' @method predict rlmmodel
#' @export
predict.rlmmodel <- function(object, newdata, ...) {
  if(missing(newdata) || is.null(newdata)) {
    return(fitted(object))
  } else{
    tt <- terms(object)
    Terms <- delete.response(tt)
    x <- model.matrix(Terms, newdata)
    return(as.matrix(x) %*% coef(object))
  }
}