R/mdwt.R

In rwt: 'Rice Wavelet Toolbox' Wrapper

###
### $Id: mdwt.R 35 2022-05-31 05:53:13Z proebuck $
### Computes the discrete wavelet transform y for a 1D or 2D input
###          signal x using the scaling filter h.
###

##-----------------------------------------------------------------------------
mdwt <- function(x, h, L) {
    .Call("do_mdwt",
          as.matrix(x),
          as.vector(h),
          as.integer(L),
          PACKAGE="rwt")
}