haar | R Documentation |
Compute Haar multiscale wavelet transform.
haar(im, inverse = FALSE, nb_scales = 1L)
im |
an image |
inverse |
Compute inverse transform (default FALSE) |
nb_scales |
Number of scales used for the transform. |
#Image compression: set small Haar coefficients to 0
hr <- haar(boats,nb=3)
mask.low <- threshold(abs(hr),"75%")
mask.high <- threshold(abs(hr),"95%")
haar(hr*mask.low,inverse=TRUE,nb=3) %>% plot(main="75% compression")
haar(hr*mask.high,inverse=TRUE,nb=3) %>% plot(main="95% compression")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.