diff options
| author | Suraj Yerramilli | 2016-02-14 12:04:56 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2016-02-14 12:04:56 +0530 |
| commit | 1d5f3b42361c11ce914365564da65e9700e6ea1c (patch) | |
| tree | 6e5ba786d75fb969e37a1682d6e194ccda6e40c6 /R | |
| parent | 2c35f3145ae3c2b3d78b1d1f2bbdb890cb581c45 (diff) | |
| download | SysID-R-code-1d5f3b42361c11ce914365564da65e9700e6ea1c.tar.gz SysID-R-code-1d5f3b42361c11ce914365564da65e9700e6ea1c.tar.bz2 SysID-R-code-1d5f3b42361c11ce914365564da65e9700e6ea1c.zip | |
changing initial guess from iv4 to iv
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 8445e48..38bac39 100644 --- a/R/estpoly.R +++ b/R/estpoly.R @@ -345,7 +345,7 @@ oe <- function(x,order=c(1,1,0),options=optimOptions()){ stop("Not an OE model") # Initial Model - mod_arx <- iv4(x,c(nf,nb,nk)) # fitting ARX model + mod_arx <- iv(x,c(nf,nb,nk)) # fitting ARX model wk <- resid(mod_arx) e_init <- as.numeric(signal::filter(signal::Ma(mod_arx$sys$A),wk)) ivs <- y-e_init |