# NOT RUN {
data(flowers)
# Dichromat
vis.flowers <- vismodel(flowers, visual = 'canis')
di.flowers <- colspace(vis.flowers, space = 'di')
# Colour hexagon
vis.flowers <- vismodel(flowers, visual = 'apis', qcatch = 'Ei', relative = FALSE,
vonkries = TRUE, achro = 'l', bkg = 'green')
hex.flowers <- colspace(vis.flowers, space = 'hexagon')
# Trichromat
vis.flowers <- vismodel(flowers, visual = 'apis')
tri.flowers <- colspace(vis.flowers, space = 'tri')
plot(tri.flowers)
# Tetrachromat
vis.flowers <- vismodel(flowers, visual = 'bluetit')
tcs.flowers <- colspace(vis.flowers, space = 'tcs')
# Categorical
vis.flowers <- vismodel(flowers, visual = 'musca', achro = 'md.r1')
cat.flowers <- colspace(vis.flowers, space = 'categorical')
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab