R/print.R

#' @rdname rlm.summaries
#' 
#' @method print rlmmodel
#' @export
print.rlmmodel <- function(x, ...) {
  cat("\nCall:\n")
  print(x$call)
  cat("\nCoefficients:\n")
  if(length(x$coefficients)){
    print(x$coefficients)
  } else {
    print("No coefficients\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.