Displaying 1 result from an estimated 1 matches for "thresholdedcoeff".
2005 Nov 23
1
assign() problem
...imwdImage$nlevels-1),sep="")
print(varname)
while ( i < imwdImage$nlevels)
{
# set the threshold to 0 on all levels except the one in evaluation
# thresholdLevels is the list of levels to set to zero
thresholdLevels <- 1:(imwdImage$nlevels-1)
thresholdLevels[i] <- 0
thresholdedCoeff <- threshold.imwd(imwdImage,levels=thresholdLevels,
policy=c("manual"), type="hard", value=10000)
# calculate the inverse wavelet transform
imwrImage <- imwr(thresholdedCoeff)
# assign the various decomposition level data a name
# starting at i+1 becaus...