R/wt.filter.qmf.R

In wavelets: Functions for Computing Wavelet Filters, Wavelet Transforms and Multiresolution Analyses

Defines functions wt.filter.qmf

Documented in wt.filter.qmf

wt.filter.qmf <- function(x, inverse=FALSE){
  L <- length(x)
  y <- x[L:1]*(-1)^(1:L) # x[L:1] is twice as fast as rev(x)
  if(inverse) y <- x[L:1]*(-1)^((1:L)-1)
  return(y)
}

Try the wavelets package in your browser