R/fitted.R

#' @rdname rlm.summaries
#' 
#' @method fitted rlm
#' @export
fitted.rlm <- function(object, ...) {
  if(length(object$fitted.values)){
    return(as.vector(object$fitted.values))
  } else {
    print("No fitted values\n")
  }
}

Try the rcane package in your browser

Any scripts or data that you put into this service are public.

rcane documentation built on May 1, 2019, 10:11 p.m.