tpwr {wavethresh}

Inverse tensor product 2D wavelet transform.

Description

Performs the inverse transform to tpwd.

Usage

tpwr(tpwdobj, verbose = FALSE)

Arguments

tpwdobj

An object which is a list which contains the items indicated in the return value of tpwd

verbose

Whether informative messages are printed

Details

Performs the inverse transform to tpwd.

Value

A matrix, or image, containing the inverse tensor product wavelet transform of the image contained in the tpwd component of the tpwdobj object.

Author(s)

G P Nason

See Also

imwr,tpwd

Examples

data(lennon)
ltpwd <- tpwd(lennon)
#
# now perform the inverse and compare to the original
#
ltpwr <- tpwr(ltpwd)
sum((ltpwr - lennon)^2)
# [1] 9.22802e-10