diff options
Diffstat (limited to '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 } |