diff options
| author | Suraj Yerramilli | 2015-06-07 12:19:23 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-06-07 12:19:23 +0530 |
| commit | 6076093b5c39d2cda15f75409e1cfea439b8e0c4 (patch) | |
| tree | ecbbde0284f4e00f78c5309700a33bb729a646a7 /R | |
| parent | 89401bd2d9b54eef8f6c663b9d30461ead341e5a (diff) | |
| download | SysID-R-code-6076093b5c39d2cda15f75409e1cfea439b8e0c4.tar.gz SysID-R-code-6076093b5c39d2cda15f75409e1cfea439b8e0c4.tar.bz2 SysID-R-code-6076093b5c39d2cda15f75409e1cfea439b8e0c4.zip | |
Corrected error
Diffstat (limited to 'R')
| -rw-r--r-- | R/estpoly.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/estpoly.R b/R/estpoly.R index d87e7d6..4902a43 100644 --- a/R/estpoly.R +++ b/R/estpoly.R @@ -76,7 +76,7 @@ estARX <- function(data,order=c(0,1,0)){ y <- as.matrix(data$output) u <- as.matrix(data$input); N <- dim(y)[1] na <- order[1];nb <- order[2]; nk <- order[3] - nb1 <- nb+nk. ; n <- max(na,nb1); df <- N - na - nb -nk + nb1 <- nb+nk ; n <- max(na,nb1); df <- N - na - nb -nk padZeros <- function(x,n) c(rep(0,n),x,rep(0,n)) yout <- apply(y,2,padZeros,n=n); |