diff options
| author | Suraj Yerramilli | 2016-02-22 21:18:57 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2016-02-22 21:18:57 +0530 |
| commit | d5c5166b9fc2e161e2554cce9e91ced8afb1ad67 (patch) | |
| tree | a5bffc437e6a096eb01bc62f183262939df177ba /R | |
| parent | 9a5d12a60d6c0e6dd415e97116a4aaf91c80dd0a (diff) | |
| download | SysID-R-code-d5c5166b9fc2e161e2554cce9e91ced8afb1ad67.tar.gz SysID-R-code-d5c5166b9fc2e161e2554cce9e91ced8afb1ad67.tar.bz2 SysID-R-code-d5c5166b9fc2e161e2554cce9e91ced8afb1ad67.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 8e72f76..36a5fd4 100644 --- a/R/estpoly.R +++ b/R/estpoly.R @@ -103,8 +103,8 @@ residplot <- function(model,newdata=NULL){ e <- newdata$output[,1] - predict(model,newdata)[,1] u <- newdata$input } - - acorr <- acf(e,plot = F); ccorr <- ccf(u[,1],e,plot = F) + e <- matrix(e) + 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") |