diff options
| author | Suraj Yerramilli | 2016-03-14 13:46:32 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2016-03-14 13:46:32 +0530 |
| commit | ed1a01a9154e4ff5eaf3c8cf422d04ed4cfa1ea3 (patch) | |
| tree | 0984b53e761e23785276fada28c71fa87f5564b2 | |
| parent | c5ae6c6422d2ec591b0050fe7ca6075933e9dddb (diff) | |
| download | SysID-R-code-ed1a01a9154e4ff5eaf3c8cf422d04ed4cfa1ea3.tar.gz SysID-R-code-ed1a01a9154e4ff5eaf3c8cf422d04ed4cfa1ea3.tar.bz2 SysID-R-code-ed1a01a9154e4ff5eaf3c8cf422d04ed4cfa1ea3.zip | |
changing confidence interval in residual plots to 99%
| -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 80925ee..08812ce 100644 --- a/R/estpoly.R +++ b/R/estpoly.R @@ -106,8 +106,8 @@ residplot <- function(model,newdata=NULL){ 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") + plot(acorr,ci=0.99,main="ACF of residuals") + plot(ccorr,ci=0.99,main="CCF between the input and residuals",ylab="CCF") } #' Estimate ARX Models |