powered by
Calls grDevices::gray() then base::rev()
grDevices::gray()
base::rev()
revgray(n = 256, ...)
Number of colors.
Passed to grDevices::gray().
Vector of colors, from white to black
There's not much to this. It's just gray((n:0)/n))
gray((n:0)/n))
# NOT RUN { x <- matrix(rnorm(100), ncol=10) image(x, col=revgray()) # }
Run the code above in your browser using DataLab