diff options
Diffstat (limited to 'R/estpoly.R')
| -rw-r--r-- | R/estpoly.R | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/R/estpoly.R b/R/estpoly.R index 1e1aae3..993fc46 100644 --- a/R/estpoly.R +++ b/R/estpoly.R @@ -9,6 +9,11 @@ estPoly <- function(coefficients,vcov,sigma,df,fitted.values, } #' @export +print.estPoly <- function(est,...){ + print(summary(est),...) +} + +#' @export summary.estPoly <- function(object) { model <- coef(object) @@ -65,7 +70,7 @@ summary.estPoly <- function(object) } #' @export -print.summary.estPoly <- function(object){ +print.summary.estPoly <- function(object,...){ print(object$model) cat("Call: ");print(object$call);cat("\n\n") |