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 | |
| parent | 4eefced3dffd4fb2a8d8a02628ea04f5197e8ee0 (diff) | |
| download | SysID-R-code-c12f7913fe2a683e40494065f4465294acbdcee6.tar.gz SysID-R-code-c12f7913fe2a683e40494065f4465294acbdcee6.tar.bz2 SysID-R-code-c12f7913fe2a683e40494065f4465294acbdcee6.zip | |
adding dependencies
| -rw-r--r-- | DESCRIPTION | 3 | ||||
| -rw-r--r-- | R/estUtil.R | 4 |
2 files changed, 3 insertions, 4 deletions
diff --git a/DESCRIPTION b/DESCRIPTION index a8511c1..04bd326 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -11,6 +11,5 @@ Description: The sysid package provides functions for constructing mathematical paramteric model estimation, and model predictions and validation. License: GPL-3 Imports: - tframe,tfplot, - zoo + signal,tframe,tfplot,zoo RoxygenNote: 5.0.1 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 } |