diff options
| -rw-r--r-- | NAMESPACE | 1 | ||||
| -rw-r--r-- | R/estpoly.R | 6 |
2 files changed, 5 insertions, 2 deletions
@@ -7,6 +7,7 @@ S3method(predict,detrend) S3method(print,arx) S3method(print,summary.idframe) S3method(print,tf) +S3method(summary,estARX) S3method(summary,idframe) export(armax) export(arx) diff --git a/R/estpoly.R b/R/estpoly.R index 0aeb8b5..a088b08 100644 --- a/R/estpoly.R +++ b/R/estpoly.R @@ -39,9 +39,11 @@ summary.estARX <- function(object) StdErr = se, t.value = tval, p.value = 2*pt(-abs(tval), df=object$df)) - TAB <- + na <- length(object$A) - 1; nk <- object$ioDelay; + nb <- length(object$B) - nk - res <- list(call=object$call,coefficients=TAB) + + res <- list(call=object$call,coefficients=TAB,order=c(na,nb,nk)) class(res) <- "summary.estARX" res }
\ No newline at end of file |