Skip to content

Instantly share code, notes, and snippets.

Created June 19, 2016 12:46
What would you like to do?
Color function for green-red heatmap
updown_colors <- function(n = 50, down.col = 1/3, up.col=1, saturation = 1)
c(hsv(down.col, saturation, seq(1,0,length=n)), hsv(up.col, saturation, seq(0,1,length=n)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment