diff options
| -rw-r--r-- | NAMESPACE | 1 | ||||
| -rw-r--r-- | R/estpoly.R | 4 | ||||
| -rw-r--r-- | R/poly.R | 2 |
3 files changed, 4 insertions, 3 deletions
@@ -18,6 +18,7 @@ S3method(plot,idfrd) S3method(plot,impulseest) S3method(predict,detrend) S3method(predict,estPoly) +S3method(print,estPoly) S3method(print,idpoly) S3method(print,summary.estPoly) S3method(print,summary.idframe) diff --git a/R/estpoly.R b/R/estpoly.R index 993fc46..7664264 100644 --- a/R/estpoly.R +++ b/R/estpoly.R @@ -71,10 +71,10 @@ summary.estPoly <- function(object) #' @export print.summary.estPoly <- function(object,...){ - print(object$model) + print(object$model,...) cat("Call: ");print(object$call);cat("\n\n") - print(coef(object)) + print(coef(object),...) cat(paste("\nMSE:",format(object$mse,digits=4), "\tFPE:",format(object$fpe,digits=4))) if(object$model$type=="arx") cat(paste("\nDoF:",object$df)) @@ -54,7 +54,7 @@ checkUnity <- function(x){ } #' @export -print.idpoly <- function(mod){ +print.idpoly <- function(mod,...){ if(mod$type=="arx"){ cat("Discrete-time ARX mod: A(q^{-1})y[k] = B(q^{-1})u[k] + e[k] \n\n") |