diff options
| author | Suraj Yerramilli | 2015-06-05 17:44:26 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-06-05 17:44:26 +0530 |
| commit | 34ab380cfc2fd9a25f2de2ee51de7cab9f92e1aa (patch) | |
| tree | 6e322285f6cb062aee89b9a65526a973b1981e1c /R | |
| parent | 7a6edb69d44d58937f6a8be54522d41e0050d82c (diff) | |
| download | SysID-R-code-34ab380cfc2fd9a25f2de2ee51de7cab9f92e1aa.tar.gz SysID-R-code-34ab380cfc2fd9a25f2de2ee51de7cab9f92e1aa.tar.bz2 SysID-R-code-34ab380cfc2fd9a25f2de2ee51de7cab9f92e1aa.zip | |
Corrected a few errors
Diffstat (limited to 'R')
| -rw-r--r-- | R/estpoly.R | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/R/estpoly.R b/R/estpoly.R index d685124..ebd266c 100644 --- a/R/estpoly.R +++ b/R/estpoly.R @@ -39,8 +39,14 @@ summary.estARX <- function(object) StdErr = se, t.value = tval, p.value = 2*pt(-abs(tval), df=object$df)) - na <- length(object$A) - 1; nk <- object$ioDelay; - nb <- length(object$B) - nk + na <- length(coef(object)$A) - 1; nk <- coef(object)$ioDelay; + nb <- length(coef(object)$B) - nk + + rownames(TAB) <- rep("a",nrow(TAB)) + for(i in 1:na) rownames(TAB)[i] <- paste("a.",i,sep="") + for(j in (na+1):nrow(TAB)) { + rownames(TAB)[j] <- paste("b.",j-na-1+nk,sep="") + } res <- list(call=object$call,coefficients=TAB,model=coef(object)) class(res) <- "summary.estARX" |