diff options
| author | Suraj Yerramilli | 2015-12-30 20:51:56 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-12-30 20:51:56 +0530 |
| commit | c12f7913fe2a683e40494065f4465294acbdcee6 (patch) | |
| tree | cf9db144a9055a739462c0a205b6c3360aa40d79 /R/estUtil.R | |
| parent | 4eefced3dffd4fb2a8d8a02628ea04f5197e8ee0 (diff) | |
| download | SysID-R-code-c12f7913fe2a683e40494065f4465294acbdcee6.tar.gz SysID-R-code-c12f7913fe2a683e40494065f4465294acbdcee6.tar.bz2 SysID-R-code-c12f7913fe2a683e40494065f4465294acbdcee6.zip | |
adding dependencies
Diffstat (limited to 'R/estUtil.R')
| -rw-r--r-- | R/estUtil.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/R/estUtil.R b/R/estUtil.R index eda0b52..aee0e96 100644 --- a/R/estUtil.R +++ b/R/estUtil.R @@ -123,7 +123,7 @@ armaxGrad <- function(theta,e,dots){ l <- list(X=X,Y=Y) if(!is.null(e)){ - filt1 <- Arma(b=1,a=c(1,theta[(na+nb+1:nc)])) + filt1 <- signal::Arma(b=1,a=c(1,theta[(na+nb+1:nc)])) grad <- apply(X,2,filter,filt=filt1) l$grad <- grad } @@ -153,7 +153,7 @@ oeGrad <- function(theta,e,dots){ l <- list(X=X,Y=y) if(!is.null(e)){ - filt1 <- Arma(b=1,a=c(1,theta[nb+1:nf,])) + filt1 <- signal::Arma(b=1,a=c(1,theta[nb+1:nf,])) grad <- apply(X,2,filter,filt=filt1) l$grad <- grad } |