Displaying 1 result from an estimated 1 matches for "imwdimage".
2005 Nov 23
1
assign() problem
...ode should be
clean.
My code:
# Wavelet multiresolution decomposition
wmra <- function(image_file){
#require(rimage)
require(wavethresh)
#reading image file and converting it to grayscale
#dimage <- read.jpeg(image_file)
#dimage <- imagematrix(dimage)
# discrete wavelet decomposition
imwdImage <- imwd(image_file)
# get a value for the number of decomposition levels
#nlevels <- imwdImage$nlevels
i <- 0
varname <- paste("level",0:(imwdImage$nlevels-1),sep="")
print(varname)
while ( i < imwdImage$nlevels)
{
# set the threshold to 0 on all levels ex...