example(imwd)
# Look at the error
summary( abs(c(imwr(imwdL) - lennon)))#around 1e-9
## Threshold after decomposing an image -- automagically compresses:
(tdi <- threshold(imwdL))
## Now reconstruct; imwr calling imwr.imwdc directly
filled.contour(answer <- imwr(tdi))
Run the code above in your browser using DataLab