R/print.R

In harjew/lab4G3: Computer lab 4

#' Print linreg
#' 
#' Print function for linreg.
#' 
#' @param x An object of class "linreg".
#' @param ... other arguments.
#' @return Printed information of the linear regression. 
#' 
#' @export

print.linreg<-function(x,...){
  base::cat("Call:\n")
 base::print(x$call[[1]])
 base::cat("\nCoefficients:\n")
  base::print(x$Coefficients)
}