powered by
n
intensity.colors(n, alpha=1) risk.colors(n, alpha=1) gradient.colors(n, start="white", end="black", alpha=1) alpha.colors(n, col="red", alpha.power=2, alpha=(seq_len(n)/n)^alpha.power)
col <- intensity.colors(100^2) if ( interactive() ) { image(matrix(1:(100^2), nrow=100), col=col) }
Run the code above in your browser using DataLab