## 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')
# ## End(Not run)
Run the code above in your browser using DataLab