# NOT RUN {
# Trichromat
pal <- colour("bright")
plot_scheme(pal(7))
# Deuteranopia
deu <- convert(pal, mode = "deuteranopia")
plot_scheme(deu(7))
# Protanopia
pro <- convert(pal, mode = "protanopia")
plot_scheme(pro(7))
# Tritanopia
tri <- convert(pal, mode = "tritanopia")
plot_scheme(tri(7))
# Achromatopsia
ach <- convert(pal, mode = "achromatopsia")
plot_scheme(ach(7))
# }
Run the code above in your browser using DataLab