## Not run: ------------------------------------
# data(sicalis)
# vis.sic <- vismodel(sicalis, visual = 'segment')
# seg.sic <- colspace(vis.sic, space = 'segment')
## ---------------------------------------------
Run the code above in your browser using DataLab