# NOT RUN {
data(flowers)
vis.flowers <- vismodel(flowers, visual = 'apis', qcatch = 'Ei', relative = FALSE, vonkries = TRUE)
coc.flowers <- colspace(vis.flowers, space = 'coc')
plot(coc.flowers)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab