## Not run: ------------------------------------
# data(flowers)
# vis.flowers <- vismodel(flowers, visual = 'canis')
# di.flowers <- colspace(vis.flowers, space = 'di')
## ---------------------------------------------
Run the code above in your browser using DataLab