1 files changed, 6 insertions, 1 deletions
diff --git a/R/estUtil.R b/R/estUtil.R
index 043eadc..084760c 100644
--- a/R/estUtil.R
+++ b/R/estUtil.R
@@ -224,4 +224,9 @@ checkInitSys <- function(init_sys){
 }
 
 leftPadZeros <- function(x,n) c(rep(0,n),x)
-padZeros <- function(x,n) c(rep(0,n),x,rep(0,n))
-\ No newline at end of file
+padZeros <- function(x,n) c(rep(0,n),x,rep(0,n))
+
+integfilter <- function(x){
+  as.numeric(stats::filter(x,filter=c(1,-1),"convolution",sides = 1,
+                           circular = T))
+}
+\ No newline at end of file