imagerExtra 1.0.0 Released!
imagerExtra provides several advanced functions for image processing.
imagerExtra have four functions: EqualizePiecewise, BalanceSimplest, SPE, and DenoiseDCT.
EqualizePiecewise and BalanceSimplest enhance contrast of image.
library(imagerExtra)
g <- grayscale(boats)
layout(matrix(1:4, 2, 2, byrow = TRUE))
plot(boats, main = "Original")
plot(g, main = "Monochrome")
EqualizePiecewise(g, 100) %>% plot(main = "EqualizePiecewise")
BalanceSimplest(g, 1, 1) %>% plot(main = "BalanceSimplest")
SPE corrects inhomogeneous background of image. Note that SPE take a lot of time because of the inefficient implementation of 2D DCT.
layout(matrix(1:2, 1, 2))
plot(g, main = "Monochrome")
SPE(g, 0.1) %>% plot(main = "SPE")
DenoiseDCT denoises noise of image.
layout(matrix(1:4, 2, 2, byrow = TRUE))
noisy <- g + imnoise(sd = 0.1, dim = dim(g))
plot(g, main = "Before Adding Noise")
plot(noisy, main = "After Adding Noise")
DenoiseDCT(noisy, sdn = 0.1, flag_dct16x16 = FALSE) %>% plot(main = "Denoised (8x8)")
DenoiseDCT(noisy, sdn = 0.1, flag_dct16x16 = TRUE) %>% plot(main = "Denoised (16x16)")
I’m going to add functions.
If you have an idea, let me know by making a issue at github.