## Not run:
# data(flowers)
# vis.flowers <- vismodel(flowers, qcatch = 'Qi', visual = 'musca', achro = 'none', relative = TRUE)
# cat.flowers <- colspace(vis.flowers, space = 'categorical')
# plot(cat.flowers)
# ## End(Not run)
Run the code above in your browser using DataLab