diff options
| author | Suraj Yerramilli | 2015-06-05 15:26:42 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-06-05 15:26:42 +0530 |
| commit | ea1fd0790dd2899b2f04328e2048e7bbeb4f7d64 (patch) | |
| tree | ddf4049864a634a96dbca96981e7a35be2810ada /R | |
| parent | a3eeccbf6a61fa186f513c7dedb856c99071a78c (diff) | |
| download | SysID-R-code-ea1fd0790dd2899b2f04328e2048e7bbeb4f7d64.tar.gz SysID-R-code-ea1fd0790dd2899b2f04328e2048e7bbeb4f7d64.tar.bz2 SysID-R-code-ea1fd0790dd2899b2f04328e2048e7bbeb4f7d64.zip | |
Minor Correction
Diffstat (limited to 'R')
| -rw-r--r-- | R/estpoly.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/R/estpoly.R b/R/estpoly.R index aa7b510..9fc5964 100644 --- a/R/estpoly.R +++ b/R/estpoly.R @@ -24,8 +24,8 @@ estARX <- function(data,order=c(0,1,0)){ model <- arx(A = c(1,coef[1:na]),B = coef[na+1:nb1],ioDelay = nk) est <- list(coefficients = model,vcov = vcov, sigma = sqrt(sigma2), - df = df,fitted.values=X%*%coef,residuals=Y-X%*%coef, - call=match.call()) + df = df,fitted.values=(X%*%coef)[1:N,], + residuals=(Y-X%*%coef)[1:N,],call=match.call()) class(est) <- "estARX" est }
\ No newline at end of file |