# Trichromat
pal <- colour("bright")
(deltaE <- compare(pal(5)))
summary(deltaE)
# Deuteranopia
deu <- convert(pal, mode = "deuteranopia")
compare(deu(5))
# Protanopia
pro <- convert(pal, mode = "protanopia")
compare(pro(5))
# Tritanopia
tri <- convert(pal, mode = "tritanopia")
compare(tri(5))
# Achromatopsia
ach <- convert(pal, mode = "achromatopsia")
compare(ach(5))
Run the code above in your browser using DataLab