# NOT RUN {
r <- t(col2rgb(rainbow(10)))
h <- t(col2rgb(heat.colors(15)))
# Compare two sets of colours
compare_colour(r, h, 'rgb', method = 'cie2000')
# Compare a set of colours with itself
compare_colour(r, from_space = 'rgb', method = 'cmc')
# }
Run the code above in your browser using DataLab