diff options
| author | Suraj Yerramilli | 2015-11-05 23:47:22 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-11-05 23:47:22 +0530 |
| commit | 204667befe26debb87017d7ccd0e6b7c11cbe5cf (patch) | |
| tree | 941642d7082b141b32ac236bc4d1a696912c5811 | |
| parent | 55c427e131fb0b8022e397474c48af73966bec88 (diff) | |
| download | SysID-R-code-204667befe26debb87017d7ccd0e6b7c11cbe5cf.tar.gz SysID-R-code-204667befe26debb87017d7ccd0e6b7c11cbe5cf.tar.bz2 SysID-R-code-204667befe26debb87017d7ccd0e6b7c11cbe5cf.zip | |
add print command for estPoly
| -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") |