The hardware and bandwidth for this mirror is donated by METANET, the Webhosting and Full Service-Cloud Provider.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]metanet.ch.
We have two options when treating color images with imagerExtra.
The former is straightforward.
One example is shown below.
library(imagerExtra)
x <- boats
s <- 0.1
R(x) <- BalanceSimplest(R(x), s, s, range=c(0,1))
G(x) <- BalanceSimplest(G(x), s, s, range=c(0,1))
B(x) <- BalanceSimplest(B(x), s, s, range=c(0,1))
layout(matrix(1:2, 1, 2))
plot(boats, main = "Original")
plot(x, main = "Independently Processed")
The latter needs three functions: Grayscale, GetHue, RestoreHue.
grayscale function of imager computes as shown below by default.
Y = 0.300000R + 0.590000G + 0.110000Bwhere Y is grayscale value, R is R value, G is G value, and B is B value.
This equation reflects the way of human visual perception.
This grayscale conversion makes it difficult to restore hue of image.
That’s why we need Grayscale function, which just compute average of RGB channels.
How to use these functions is shown below.
g <- Grayscale(boats)
hueim <- GetHue(boats)
g <- BalanceSimplest(g, s, s, range=c(0,1))
y <- RestoreHue(g, hueim)
layout(matrix(1:2, 1, 2))
plot(boats, main = "Original")
plot(y, main = "Processed While Preserving Hue")
Which way is better?
It’s your call.
You should consider which way is better when treating color images.
These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.