diff options
| -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 } |