## Not run:
# data(flowers)
# vis.flowers <- vismodel(flowers, visual = 'apis', qcatch = 'Ei', relative = FALSE, vonkries = TRUE)
# coc.flowers <- colspace(vis.flowers, space = 'coc')
# ## End(Not run)
Run the code above in your browser using DataLab