diff options
| author | Suraj Yerramilli | 2016-03-15 11:17:23 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2016-03-15 11:17:23 +0530 |
| commit | 6d7fba6930dd102a821c0df033123725af04b11a (patch) | |
| tree | 05b5234bbd18b0515596f78f94608ed7163c991e | |
| parent | a2cb09297672a9186d6687c2d87133e0d341b667 (diff) | |
| download | SysID-R-code-6d7fba6930dd102a821c0df033123725af04b11a.tar.gz SysID-R-code-6d7fba6930dd102a821c0df033123725af04b11a.tar.bz2 SysID-R-code-6d7fba6930dd102a821c0df033123725af04b11a.zip | |
not padding the input initially
| -rw-r--r-- | R/estpoly.R | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/R/estpoly.R b/R/estpoly.R index 98d6eed..538e7d4 100644 --- a/R/estpoly.R +++ b/R/estpoly.R @@ -368,10 +368,10 @@ oe <- function(x,order=c(1,1,0),init_sys=NULL,options=optimOptions()){ } nb1 <- nb+nk-1 ; n <- max(nb1,nf);df <- N - nb - nf - leftPadZeros <- function(x,n) c(rep(0,n),x) - uout <- apply(u,2,leftPadZeros,n=n) +# leftPadZeros <- function(x,n) c(rep(0,n),x) +# uout <- apply(u,2,leftPadZeros,n=n) - l <- levbmqdt(y,uout,order,ivs,obj=oeGrad,theta0=theta0,N=N, + l <- levbmqdt(y,u,order,ivs,obj=oeGrad,theta0=theta0,N=N, opt=options) theta <- l$params e <- ts(l$residuals,start = start(y),deltat = deltat(y)) |