diff options
| author | Suraj Yerramilli | 2015-11-02 10:58:08 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-11-02 10:58:08 +0530 |
| commit | b5a9ab0b91227a2987c9c026999ca463c195052c (patch) | |
| tree | 4ae6d78e9a7e0988e54d0bb14a24211bdb0ce9ec /R | |
| parent | d8afcfb5b0a246b4f4eacd130aa72f254cae3e05 (diff) | |
| download | SysID-R-code-b5a9ab0b91227a2987c9c026999ca463c195052c.tar.gz SysID-R-code-b5a9ab0b91227a2987c9c026999ca463c195052c.tar.bz2 SysID-R-code-b5a9ab0b91227a2987c9c026999ca463c195052c.zip | |
minor corrections
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 02b7b0e..fbb77cf 100644 --- a/R/estpoly.R +++ b/R/estpoly.R @@ -119,7 +119,7 @@ residplot <- function(model,newdata=NULL){ u <- newdata$input } - acorr <- acf(e,plot = F); ccorr <- ccf(u[,1],e[,],plot = F) + acorr <- acf(e,plot = F); ccorr <- ccf(u[,1],e,plot = F) par(mfrow=c(2,1),mar=c(3,4,3,2)) plot(acorr,main="ACF of residuals") plot(ccorr,main="CCF between the input and residuals",ylab="CCF") @@ -431,6 +431,6 @@ oe <- function(x,order=c(1,1,0)){ ioDelay = nk,Ts=deltat(x)) estPoly(coefficients = model,vcov = vcov, sigma = sqrt(sigma2), - df = df,fitted.values=y-e, residuals=e,call=match.call(), + df = df,fitted.values=y-e, residuals=e[,],call=match.call(), input=u) }
\ No newline at end of file |