chongi <- system.file("extdata/chongi.png", package = "recolorize")
chongi <- png::readPNG(chongi)
chongi_k <- recolorize(chongi, "k", n = 5)
recolored_chongi <- constructImage(chongi_k$pixel_assignments,
chongi_k$centers)
d <- imDist(chongi,
recolored_chongi, plotting = FALSE)
# original flavor
imHeatmap(d)
# bit offputting
imHeatmap(d, palette = colorRamps::ygobb(100))
# just dreadful
imHeatmap(d, palette = colorRamps::primary.colors(100))
Run the code above in your browser using DataLab